Fix buggy BuildHeaderKeysTo instance
commit1ca6ee2c31556702ef2a734baee244ba90d24ad4
authorGreg Hale <imalsogreg@gmail.com>
dateTue 7 Mar 2017, 20:59 (10 years ago)
parent8a1e017
src/Servant/Reflex.hs+1−1
@@ -160,7 +160,7 @@ instance {-# OVERLAPPABLE #-} BuildHeaderKeysTo '[]
160160 where buildHeaderKeysTo _ = []
161161
162162instance {-# OVERLAPPABLE #-} (BuildHeaderKeysTo xs, KnownSymbol h)
163− => BuildHeaderKeysTo '[(Header h v) ': xs] where
163+ => BuildHeaderKeysTo ((Header h v) ': xs) where
164164 buildHeaderKeysTo _ = T.pack (symbolVal (Proxy :: Proxy h)) : buildHeaderKeysTo (Proxy :: Proxy xs)
165165
166166-- HEADERS Verb (Content) --