1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{-# LANGUAGE DeriveDataTypeable, DeriveGeneric, TemplateHaskell, TypeOperators, OverloadedStrings #-}
module Happstack.Authenticate.OpenId.PartialsURL where
import Data.Data (Data, Typeable)
import Control.Category ((.), id)
import GHC.Generics (Generic)
import Prelude hiding ((.), id)
import Text.Boomerang.TH (makeBoomerangs)
import Web.Routes (PathInfo(..))
import Web.Routes.Boomerang (Router, (:-), (<>), boomerangFromPathSegments, boomerangToPathSegments)
data PartialURL
= UsingYahoo
| RealmForm
deriving (Eq, Ord, Data, Typeable, Generic, Read, Show)
makeBoomerangs ''PartialURL
partialURL :: Router () (PartialURL :- ())
partialURL =
( "using-yahoo" . rUsingYahoo
<> "realm" . rRealmForm
)
instance PathInfo PartialURL where
fromPathSegments = boomerangFromPathSegments partialURL
toPathSegments = boomerangToPathSegments partialURL
|
