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

Fixed unticked-promoted-constructors

Browse source
This commit is contained in:
Simon Hafner 2017-05-14 16:26:25 +02:00
parent 35e3fd6e81
commit bbc872e154
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant/src/Servant/API/ContentTypes.hs
View file

@ -185,7 +185,7 @@ instance OVERLAPPABLE_
lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs
#if MIN_VERSION_base(4,9,0) #if MIN_VERSION_base(4,9,0)
instance TL.TypeError (TL.Text "No instance for (), use NoContent instead.") instance TL.TypeError ('TL.Text "No instance for (), use NoContent instead.")
=> AllCTRender '[] () where => AllCTRender '[] () where
handleAcceptH _ _ _ = error "unreachable" handleAcceptH _ _ _ = error "unreachable"
#endif #endif