{-# LANGUAGE OverloadedStrings #-} module Templates where import Data.Text.Lazy (Text) import qualified Data.Text.Lazy as TL import Types renderIndex :: Language -> Text renderIndex lang = TL.concat [ "\n" , "\n" , " \n" , " \n" , " \n" , " \n" , " Portfolio\n" , " \n" , " \n" , " \n" , "
\n" , "
\n" , "
\n" , " $\n" , " \n" , "
\n" , "
\n" , " \n" , " \n" , " \n" , "" ] languageCode :: Language -> Text languageCode French = "fr" languageCode English = "en"