The snap-language package

[maintain]
Warnings:

Language handling for Snap.

Support for determining the client's prefered language using the Accept-Language header or using suffixes to the requested URI.


[Skip to ReadMe]

Properties

Versions0.1.0.0, 0.1.0.0, 0.1.0.1, 0.1.0.2
Dependenciesattoparsec (>=0.13.0.1 && <0.14), base (==4.8.*), bytestring (>=0.10.6.0 && <0.11), containers (>=0.5.6.2 && <0.6), snap-core (>=0.9.8.0 && <0.10) [details]
LicenseBSD3
AuthorPetter Bergman
Maintainerjon.petter.bergman@gmail.com
CategoryWeb
Home pagehttps://github.com/jonpetterbergman/snap-accept-language
Bug trackerhttps://github.com/jonpetterbergman/snap-accept-language/issues
Source repositoryhead: git clone http://github.com/jonpetterbergman/snap-accept-language
this: git clone http://github.com/jonpetterbergman/snap-accept-language(tag v0.1.0.0)
UploadedTue Dec 1 08:05:51 UTC 2015 by petterb

Modules

[Index]

Downloads

Maintainers' corner

For package maintainers and hackage trustees

Readme for snap-language-0.1.0.0

snap-language

Language handling for Snap.

Support for determining the client's prefered language using the Accept-Language header or using suffixes to the requested URI.

Try this example:

{-# LANGUAGE OverloadedStrings #-}

module Simple where

import Snap.Http.Server
import Snap.Core
import Data.Map
import Control.Applicative

import Snap.Language

data Lang = SV | EN deriving Eq

table :: RangeMapping Lang
table = fromList [("sv-SE",SV),("en-GB",EN)]

getLanguage :: Snap Lang
getLanguage = 
  getSuffixLanguage table <|> 
  getAcceptLanguage table <|> 
  return EN

test :: IO ()
test = quickHttpServe $ do
  lang <- getLanguage
  dir "hello" $ handler lang

handler :: Lang -> Snap ()
handler EN = writeBS "hello"
handler SV = writeBS "hej"

You can now access /hello and you will get an answer depending on your Accept-Language header.

Or you can access /hello.en-GB or /hello.sv-SE directly.