git.iko.soy/typeable/servant-reflex
on master help sign in
Fix buggy BuildHeaderKeysTo instance
1ca6ee2Greg Hale
src/Servant/Reflex.hs+1−1
compare with master
unifiedsplit
@@ -160,7 +160,7 @@ instance {-# OVERLAPPABLE #-} BuildHeaderKeysTo '[]
160 where buildHeaderKeysTo _ = []
160 where buildHeaderKeysTo _ = []
161
161
162instance {-# OVERLAPPABLE #-} (BuildHeaderKeysTo xs, KnownSymbol h)
162instance {-# OVERLAPPABLE #-} (BuildHeaderKeysTo xs, KnownSymbol h)
163− => BuildHeaderKeysTo '[(Header h v) ': xs] where
163+ => BuildHeaderKeysTo ((Header h v) ': xs) where
164 buildHeaderKeysTo _ = T.pack (symbolVal (Proxy :: Proxy h)) : buildHeaderKeysTo (Proxy :: Proxy xs)
164 buildHeaderKeysTo _ = T.pack (symbolVal (Proxy :: Proxy h)) : buildHeaderKeysTo (Proxy :: Proxy xs)
165
165
166-- HEADERS Verb (Content) --
166-- HEADERS Verb (Content) --