mirror of
https://github.com/codedownio/sandwich.git
synced 2024-09-21 00:38:27 +03:00
Try fixing build on GHC 8.6.5
This commit is contained in:
parent
29b02d00aa
commit
a1ec61b6dd
@ -15,6 +15,7 @@
|
|||||||
{-# LANGUAGE GADTs #-}
|
{-# LANGUAGE GADTs #-}
|
||||||
{-# LANGUAGE UndecidableInstances #-}
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
{-# LANGUAGE InstanceSigs #-}
|
{-# LANGUAGE InstanceSigs #-}
|
||||||
|
{-# LANGUAGE CPP #-}
|
||||||
|
|
||||||
-- | The core Spec/SpecCommand types, used to define the test free monad.
|
-- | The core Spec/SpecCommand types, used to define the test free monad.
|
||||||
|
|
||||||
@ -36,6 +37,10 @@ import GHC.Stack
|
|||||||
import GHC.TypeLits
|
import GHC.TypeLits
|
||||||
import Safe
|
import Safe
|
||||||
|
|
||||||
|
#if !MIN_VERSION_base(4,13,0)
|
||||||
|
import Control.Monad.Fail
|
||||||
|
#endif
|
||||||
|
|
||||||
-- * ExampleM monad
|
-- * ExampleM monad
|
||||||
|
|
||||||
newtype ExampleT context m a = ExampleT { unExampleT :: ReaderT context (LoggingT m) a }
|
newtype ExampleT context m a = ExampleT { unExampleT :: ReaderT context (LoggingT m) a }
|
||||||
|
Loading…
Reference in New Issue
Block a user