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