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

Pattern match fix

Browse source
This commit is contained in:
Julian K. Arni 2015-05-02 12:39:02 +02:00
parent 12df2cdca5
commit 978c890061
1 changed files with 4 additions and 3 deletions

7
servant/src/Servant/API/ResponseHeaders.hs
View file

@ -109,9 +109,10 @@ instance
#endif #endif
( KnownSymbol h, ToByteString x, GetHeaders (HList xs) ( KnownSymbol h, ToByteString x, GetHeaders (HList xs)
) => GetHeaders (HList (Header h x ': xs)) where ) => GetHeaders (HList (Header h x ': xs)) where
getHeaders (Header val `HCons` rest) = (headerName , toByteString' val):getHeaders rest getHeaders hdrs = case hdrs of
where headerName = CI.mk . pack $ symbolVal (Proxy :: Proxy h) Header val `HCons` rest -> (headerName , toByteString' val):getHeaders rest
getHeaders (UndecodableHeader h `HCons` rest) = (headerName, h) : getHeaders rest UndecodableHeader h `HCons` rest -> (headerName, h) : getHeaders rest
MissingHeader `HCons` rest -> getHeaders rest
where headerName = CI.mk . pack $ symbolVal (Proxy :: Proxy h) where headerName = CI.mk . pack $ symbolVal (Proxy :: Proxy h)
instance instance