35 lines
665 B
Haskell
35 lines
665 B
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
import Yesod
|
|
import Yesod.Constants
|
|
import Hack.Handler.SimpleServer
|
|
|
|
data I18N = I18N
|
|
|
|
instance Yesod I18N where
|
|
handlers = [$resources|
|
|
/:
|
|
Get: homepage
|
|
/set/$lang:
|
|
Get: setLang
|
|
|]
|
|
|
|
homepage = return Hello
|
|
|
|
setLang lang = do
|
|
addCookie 1 langKey lang
|
|
redirect "/"
|
|
return ()
|
|
|
|
data Hello = Hello
|
|
|
|
instance HasReps Hello where
|
|
reps = [(TypeHtml, const $ return $ Content $ return . cs . content)]
|
|
where
|
|
content [] = "Hello"
|
|
content ("he":_) = "שלום"
|
|
content ("es":_) = "Hola"
|
|
content (_:rest) = content rest
|
|
|
|
|
|
main = putStrLn "Running..." >> run 3000 (toHackApp I18N)
|