Freighty.hs

{-# LANGUAGE OverloadedStrings #-}
module FreightyCat where

import           Control.Applicative
import           Snap.Core
import           Snap.Util.FileServe
import           Snap.Http.Server

main :: IO ()
main = quickHttpServe site

site :: Snap ()
site =
    ifTop (writeBS "hello world") <|>
    route [ ("foo", writeBS "bar")
          , ("echo/:echoparam", echoHandler)
          , ("blah/:user", blahHandler)
          ] <|>
    dir "static" (serveDirectory ".")

echoHandler :: Snap ()
echoHandler = do
    param <- getParam "echoparam"
    maybe (writeBS "must specify echo/param in URL")
          writeBS param

blahHandler :: Snap ()
blahHandler = do
    user <- getParam "user"
    maybe (writeBS "must specify echo/param in URL")
          writeBS user