Happstack logging snippets for a wordpress blog

hellohapp.hs

import Happstack.Server
import System.Environment
import Control.Monad (when)

main = do
  args <- getArgs
  when (length args < 2) $ error "Usage: ./HelloHTTP "

  simpleHTTP nullConf $ serveDirectory EnableBrowsing ["index.htm"] (head args)

liftIO.hs

λ> import Control.Monad.IO.Class
λ> :i liftIO

class Monad m => MonadIO m where
    liftIO :: IO a -> m a
           -- Defined in `Control.Monad.IO.Class’