63 lines
1.4 KiB
Plaintext
63 lines
1.4 KiB
Plaintext
> {-# LANGUAGE QuasiQuotes #-}
|
|
> {-# LANGUAGE TemplateHaskell #-}
|
|
> {-# LANGUAGE TypeFamilies #-}
|
|
> {-# LANGUAGE MultiParamTypeClasses #-}
|
|
> {-# LANGUAGE OverloadedStrings #-}
|
|
> {-# LANGUAGE CPP #-}
|
|
|
|
> import Yesod
|
|
> import Data.Monoid (mempty)
|
|
> import Data.Text (Text)
|
|
|
|
To work on both ghc6 and ghc7
|
|
|
|
#if GHC7
|
|
# define QQ(x) x
|
|
#else
|
|
# define QQ(x) $x
|
|
#endif
|
|
|
|
> data I18N = I18N
|
|
|
|
> mkYesod "I18N" [QQ(parseRoutes)|
|
|
> / HomepageR GET
|
|
> /set/#Text SetLangR GET
|
|
> |]
|
|
|
|
> instance Yesod I18N where
|
|
> approot _ = "http://localhost:3000"
|
|
|
|
> getHomepageR :: Handler RepHtml
|
|
> getHomepageR = do
|
|
> ls <- languages
|
|
> let hello = chooseHello ls
|
|
> let choices =
|
|
> [ ("en", "English") :: (Text, Text)
|
|
> , ("es", "Español")
|
|
> , ("he", "עִבְרִית")
|
|
> ]
|
|
> defaultLayout $ do
|
|
> setTitle "I18N Homepage"
|
|
> addHamlet [QQ(hamlet)|
|
|
> <h1>#{hello}
|
|
> <p>In other languages:
|
|
> <ul>
|
|
> $forall choice <- choices
|
|
> <li>
|
|
> <a href="@{SetLangR (fst choice)}">#{snd choice}
|
|
> |]
|
|
|
|
> chooseHello :: [Text] -> Text
|
|
> chooseHello [] = "Hello"
|
|
> chooseHello ("he":_) = "שלום"
|
|
> chooseHello ("es":_) = "¡Hola!"
|
|
> chooseHello (_:rest) = chooseHello rest
|
|
|
|
> getSetLangR :: Text -> Handler ()
|
|
> getSetLangR lang = do
|
|
> setLanguage lang
|
|
> redirect RedirectTemporary HomepageR
|
|
|
|
> main :: IO ()
|
|
> main = warpDebug 3000 I18N
|