20 lines
404 B
Plaintext
20 lines
404 B
Plaintext
\begin{code}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
import Yesod
|
|
import Hack.Handler.SimpleServer
|
|
|
|
data HelloWorld = HelloWorld
|
|
instance Yesod HelloWorld where
|
|
resources = [$mkResources|
|
|
/:
|
|
Get: helloWorld
|
|
|]
|
|
|
|
helloWorld :: Handler HelloWorld ChooseRep
|
|
helloWorld = applyLayout' "Hello World" $ cs "Hello world!"
|
|
|
|
main :: IO ()
|
|
main = putStrLn "Running..." >> toHackApp HelloWorld >>= run 3000
|
|
\end{code}
|