gistfile1.hs

listEntity :: AppRoot -> String -> MyServerPartT Response 
listEntity r w = 
    methodM [GET, POST] >> do
        decodeBody reqPolicy
        auth r w
        AppState { dbCtx = ctx } <- ask
        withData $ handle ctx w
    where handle ctx t (TestGet p) =
            do
                rs <- liftIO $ doSelectFromTable ctx t (filtParams ctx t p)
                case rs of
                    Right x  -> do -- liftIO $ putStrLn x
                                   qq <- xsltIf (Just "test.xsl") x
                                   -- liftIO $ putStrLn qq 
                                   ok $ contentTypeHtml $ toResponse qq 
                    Left _ -> do liftIO $ errorM appLog dbError
                                 badRequest $ contentTypeXml $ toResponse dbError