The snap-language package

[ Tags: bsd3, library, web ] [ Propose Tags ]

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

Versions 0.1.0.0, 0.1.0.1, 0.1.0.2
Change log CHANGELOG.md
Dependencies attoparsec (>=0.13.0.1 && <0.14), base (>=4.8 && <4.10), bytestring (>=0.10.6.0 && <0.11), containers (>=0.5.6.2 && <0.6), snap-core (>=0.9.8.0 && <1.1) [details]
License BSD3
Author Petter Bergman
Maintainer jon.petter.bergman@gmail.com
Category Web
Home page https://github.com/jonpetterbergman/snap-accept-language
Bug tracker https://github.com/jonpetterbergman/snap-accept-language/issues
Source repository head: git clone http://github.com/jonpetterbergman/snap-accept-language
this: git clone http://github.com/jonpetterbergman/snap-accept-language(tag v0.1.0.2)
Uploaded Tue Aug 16 07:58:39 UTC 2016 by petterb
Distributions NixOS:0.1.0.2
Downloads 149 total (5 in the last 30 days)
Rating 0.0 (0 ratings) [clear rating]
  • λ
  • λ
  • λ
Status Docs available [build log]
Last success reported on 2016-08-16 [all 1 reports]
Hackage Matrix CI

Modules

[Index]

Downloads

Maintainer's Corner

For package maintainers and hackage trustees


Readme for snap-language-0.1.0.2

[back to package description]

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.