{-# LANGUAGE OverloadedStrings #-}

import Snap

main :: IO ()
main = quickHttpServe $ do
  route [ ("foo", writeBS "Foo!")
        , ("bar", writeBS "Bar!") ]