Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 28 lines (21 sloc) 514 Bytes
#!/usr/bin/env stack
-- stack script --resolver lts-12.4
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -ddump-splices #-}
import Yesod
data App = App
mkYesod "App" [parseRoutes|
/check1 Check1R GET
|]
instance Yesod App
getCheck1R :: Handler Html
getCheck1R = defaultLayout $ do
mParam <- lookupGetParam "p"
[whamlet|
#{maybe "" id mParam}
|]
main :: IO ()
main = warp 3000 App