e8bae7d · typeable/servant

git.iko.soy/typeable/servant

Tweak the HasLink instance for QueryParam, fixes #129

commite8bae7d03561208f9d5e6def541ef932ca8264e7 authorAlp Mestanogullari <alpmestan@gmail.com> dateThu 18 Jun 2015, 18:03 (11 years ago) parent9b9ea10

1 file changed+4−4

unifiedsplit

servant/src/Servant/Utils/Links.hs+4−4

@@ -273,10 +273,10 @@ instance (KnownSymbol sym, HasLink sub) => HasLink (sym :> sub) where

273273-- QueryParam instances

274274instance (KnownSymbol sym, ToText v, HasLink sub)

275275 => HasLink (QueryParam sym v :> sub) where

276− type MkLink (QueryParam sym v :> sub) = v -> MkLink sub

277− toLink _ l v =

278− toLink (Proxy :: Proxy sub)

279− (addQueryParam (SingleParam k (toText v)) l)

276+ type MkLink (QueryParam sym v :> sub) = Maybe v -> MkLink sub

277+ toLink _ l mv =

278+ toLink (Proxy :: Proxy sub) $

279+ maybe id (addQueryParam . SingleParam k . toText) mv l

280280 where

281281 k :: String

282282 k = symbolVal (Proxy :: Proxy sym)