31 lines
604 B
Haskell
31 lines
604 B
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
import Yesod
|
|
import Hack.Handler.SimpleServer
|
|
|
|
data I18N = I18N
|
|
|
|
instance Yesod I18N where
|
|
resources = [$mkResources|
|
|
/:
|
|
Get: homepage
|
|
/set/$lang:
|
|
Get: setLang
|
|
|]
|
|
|
|
homepage = do
|
|
ls <- languages
|
|
let hello = chooseHello ls
|
|
return [(TypePlain, cs hello :: Content)]
|
|
|
|
chooseHello [] = "Hello"
|
|
chooseHello ("he":_) = "שלום"
|
|
chooseHello ("es":_) = "Hola"
|
|
chooseHello (_:rest) = chooseHello rest
|
|
|
|
setLang lang = do
|
|
addCookie 1 langKey lang
|
|
redirect RedirectTemporary "/"
|
|
return ()
|
|
|
|
main = putStrLn "Running..." >> toHackApp I18N >>= run 3000
|