From 978c890061a607dcdf4cd2bd1a2da6de3b73af4c Mon Sep 17 00:00:00 2001 From: "Julian K. Arni" Date: Sat, 2 May 2015 12:39:02 +0200 Subject: [PATCH] Pattern match fix --- servant/src/Servant/API/ResponseHeaders.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/servant/src/Servant/API/ResponseHeaders.hs b/servant/src/Servant/API/ResponseHeaders.hs index 483e3466..1fcbd035 100644 --- a/servant/src/Servant/API/ResponseHeaders.hs +++ b/servant/src/Servant/API/ResponseHeaders.hs @@ -109,9 +109,10 @@ instance #endif ( KnownSymbol h, ToByteString x, GetHeaders (HList xs) ) => GetHeaders (HList (Header h x ': xs)) where - getHeaders (Header val `HCons` rest) = (headerName , toByteString' val):getHeaders rest - where headerName = CI.mk . pack $ symbolVal (Proxy :: Proxy h) - getHeaders (UndecodableHeader h `HCons` rest) = (headerName, h) : getHeaders rest + getHeaders hdrs = case hdrs of + Header val `HCons` rest -> (headerName , toByteString' val):getHeaders rest + UndecodableHeader h `HCons` rest -> (headerName, h) : getHeaders rest + MissingHeader `HCons` rest -> getHeaders rest where headerName = CI.mk . pack $ symbolVal (Proxy :: Proxy h) instance