{-# LANGUAGE OverloadedStrings #-} module Main where import Web.Scotty import Network.Wai import qualified Data.Text.Lazy as TL import Network.HTTP.Types.Status import Data.Monoid (mconcat) simpleApp :: Application simpleApp _ respond = do putStrLn "I've done some IO here" respond $ responseLBS status200 [("Content-Type", "text/plain")] "Hello, Web!" scottApp :: IO Application scottApp = scottyApp $ do get "/" $ do html $ mconcat ["