import Data.ByteString.UTF8       (toString)

import Data.Text.Lazy             (Text,toStrict)

import Database.PostgreSQL.Simple (Pool,withPoolConnection)

import Safe                       (readMay)

import Snap.Types                 (Snap,writeText,redirect,getParam)

import Text.Blaze                 (Html)

import Text.Blaze.Renderer.Text   (renderHtml)

-- | Run a controller handler.

runHandler :: Config -> Pool -> Cache -> Chan Text -> Controller () -> Snap ()

runHandler conf pool cache anns ctrl = do

  withPoolConnection pool $ \conn -> do

    let state = ControllerState conf conn cache anns

    runReaderT (runController ctrl) state 

-- | Strictly renders HTML to Text before outputting it via Snap.

--   This ensures that any lazy exceptions are caught by the Snap

--   handler.