small starter for maybe eventsource on snap framework

snapTest.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Applicative
import           Snap.Core
import           Snap.Util.FileServe
import           Snap.Http.Server
import           Control.Monad.IO.Class
import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = quickHttpServe site

site :: Snap ()
site = do
    a <- getRequest
    liftIO $ print a
    routes a
    where 
        routes a =
          ifTop (writeBS "hello world") <|>
          route [ ("foo", writeBS $ BS.pack (show a))
                , ("echo/:echoparam", echoHandler)
                ] <|>
          dir "static" (serveDirectory ".")

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