git.iko.soy/typeable/servant
on master help sign in
Tweak the HasLink instance for QueryParam, fixes #129
e8bae7dAlp Mestanogullari
servant/src/Servant/Utils/Links.hs+4−4
compare with master
unifiedsplit
@@ -273,10 +273,10 @@ instance (KnownSymbol sym, HasLink sub) => HasLink (sym :> sub) where
273-- QueryParam instances
273-- QueryParam instances
274instance (KnownSymbol sym, ToText v, HasLink sub)
274instance (KnownSymbol sym, ToText v, HasLink sub)
275 => HasLink (QueryParam sym v :> sub) where
275 => HasLink (QueryParam sym v :> sub) where
276− type MkLink (QueryParam sym v :> sub) = v -> MkLink sub
276+ type MkLink (QueryParam sym v :> sub) = Maybe v -> MkLink sub
277− toLink _ l v =
277+ toLink _ l mv =
278− toLink (Proxy :: Proxy sub)
278+ toLink (Proxy :: Proxy sub) $
279− (addQueryParam (SingleParam k (toText v)) l)
279+ maybe id (addQueryParam . SingleParam k . toText) mv l
280 where
280 where
281 k :: String
281 k :: String
282 k = symbolVal (Proxy :: Proxy sym)
282 k = symbolVal (Proxy :: Proxy sym)