gistfile1.txt

insertEntity :: Context -> String -> ServerPartT IO Response
insertEntity serv w = 
    methodM GET >> do withData (\d -> handle serv w d) 
    where handle ctx t (TestGet p) = do
            x <- liftIO (doInsertIntoTable ctx t p)
--- написав это сам,  Дик Бёрд (ну или Бивис) впервые поверил, что он сможет освоить хаскель
            res <- case x of 
                    Nack(x) -> do fail x; return "<error/>" -- и особенно вот это
                    Ack  _  -> return "<ok/>"
            ok $  contentTypeXml $ toResponse res