setLanguage

Yesod/Dispatch.hs

@@ -218,9 +218,6 @@ fixSegs [x]
     | otherwise = [x, ""] -- append trailing slash
 fixSegs (x:xs) = x : fixSegs xs
 
-langKey :: String
-langKey = "_LANG"
-
 parseWaiRequest :: W.Request
                 -> [(String, String)] -- ^ session
                 -> IO Request

Yesod/Handler.hs

@@ -47,6 +47,7 @@ module Yesod.Handler
     , addCookie
     , deleteCookie
     , header
+    , setLanguage
       -- * Session
     , setSession
     , clearSession
@@ -363,6 +364,10 @@ addCookie a b = addHeader . AddCookie a b
 deleteCookie :: String -> GHandler sub master ()
 deleteCookie = addHeader . DeleteCookie
 
+-- | Set the language header. Will show up in 'languages'.
+setLanguage :: String -> GHandler sub master ()
+setLanguage = addCookie 60 langKey
+
 -- | Set an arbitrary header on the client.
 header :: String -> String -> GHandler sub master ()
 header a = addHeader . Header a

Yesod/Internal.hs

@@ -4,6 +4,8 @@ module Yesod.Internal
       ErrorResponse (..)
       -- * Header
     , Header (..)
+      -- * Cookie names
+    , langKey
     ) where
 
 -- | Responses to indicate some form of an error occurred. These are different
@@ -23,3 +25,6 @@ data Header =
     | DeleteCookie String
     | Header String String
     deriving (Eq, Show)
+
+langKey :: String
+langKey = "_LANG"