GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-17 04:44:39 +03:00
Code Issues Projects Releases Wiki Activity

add missing Prelude.Compat

Browse Source
This commit is contained in:
Adam C. Foltzer 2015-10-21 13:45:54 -07:00
parent afa90656e9
commit 3f4e884a79
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Cryptol/ModuleSystem/Name.hs
View File

@ -40,7 +40,6 @@ import Cryptol.Utils.Ident
import Cryptol.Utils.Panic
import Cryptol.Utils.PP
import qualified Control.Applicative as A
import Control.DeepSeq.Generics
import Control.Monad.Fix (MonadFix(mfix))
import qualified Data.Map as Map
@ -48,6 +47,8 @@ import qualified Data.Monoid as M
import Data.Ord (comparing)
import GHC.Generics (Generic)
import MonadLib
import Prelude ()
import Prelude.Compat
-- Names -----------------------------------------------------------------------
@ -242,7 +243,7 @@ instance MonadFix m => MonadFix (SupplyT m) where
newtype SupplyM a = SupplyM (SupplyT Id a)
deriving (Functor,A.Applicative,Monad,MonadFix)
deriving (Functor,Applicative,Monad,MonadFix)
runSupplyM :: Supply -> SupplyM a -> (a,Supply)
runSupplyM s m = runM m s