eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tweak the HasLink instance for QueryParam, fixes #129

Browse Source
This commit is contained in:
Alp Mestanogullari 2015-06-18 18:03:48 +02:00
parent 9b9ea1059c
commit e8bae7d035
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
servant/src/Servant/Utils/Links.hs
View File

@ -273,10 +273,10 @@ instance (KnownSymbol sym, HasLink sub) => HasLink (sym :> sub) where
-- QueryParam instances
instance (KnownSymbol sym, ToText v, HasLink sub)
=> HasLink (QueryParam sym v :> sub) where
type MkLink (QueryParam sym v :> sub) = v -> MkLink sub
toLink _ l v =
toLink (Proxy :: Proxy sub)
(addQueryParam (SingleParam k (toText v)) l)
type MkLink (QueryParam sym v :> sub) = Maybe v -> MkLink sub
toLink _ l mv =
toLink (Proxy :: Proxy sub) $
maybe id (addQueryParam . SingleParam k . toText) mv l
where
k :: String
k = symbolVal (Proxy :: Proxy sym)