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

Merge pull request #1525 from k0001/fix-9.2.1

Browse source 
servant-server: Fix build on GHC 9.2.1
This commit is contained in:
Gaël Deest 2022-02-07 09:57:23 +01:00 committed by GitHub
commit 67322d8ab8
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-server/src/Servant/Server/Internal.hs
View file

@ -41,7 +41,7 @@ import qualified Data.ByteString as B
import qualified Data.ByteString.Builder as BB
import qualified Data.ByteString.Char8 as BC8
import qualified Data.ByteString.Lazy as BL
import Data.Constraint (Dict(..))
import Data.Constraint (Constraint, Dict(..))
import Data.Either
(partitionEithers)
import Data.Maybe
@ -821,7 +821,7 @@ instance (HasContextEntry context (NamedContext name subContext), HasServer subA
-- Erroring instance for 'HasServer' when a combinator is not fully applied
instance TypeError (PartialApplication HasServer arr) => HasServer ((arr :: a -> b) :> sub) context
where
type ServerT (arr :> sub) _ = TypeError (PartialApplication HasServer arr)
type ServerT (arr :> sub) _ = TypeError (PartialApplication (HasServer :: * -> [*] -> Constraint) arr)
route = error "unreachable"
hoistServerWithContext _ _ _ _ = error "unreachable"