Commit c3e7823e authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺
Browse files

Silence two AMP warnings


Signed-off-by: Herbert Valerio Riedel's avatarHerbert Valerio Riedel <hvr@gnu.org>
parent 5a01117e
......@@ -27,11 +27,15 @@ import Compiler.Hoopl hiding (Unique, (<*>), mkFirst, mkMiddle, mkLast, mkLabel,
import DynFlags
import FastString
import ForeignCall
import Prelude hiding (succ)
import SMRep (ByteOff)
import UniqSupply
import OrdList
import Control.Monad
import Data.List
import Data.Maybe
import Prelude (($),Int,Eq(..)) -- avoid importing (<*>)
#include "HsVersions.h"
......
......@@ -133,7 +133,7 @@ import UniqFM
import Maybes ( orElse, catMaybes, firstJust )
import Pair ( pSnd )
import Control.Monad( when, zipWithM )
import Control.Monad( ap, when, zipWithM )
import Data.IORef
import TrieMap
......@@ -989,6 +989,10 @@ newtype TcS a = TcS { unTcS :: TcSEnv -> TcM a }
instance Functor TcS where
fmap f m = TcS $ fmap f . unTcS m
instance Applicative TcS where
pure = return
(<*>) = ap
instance Monad TcS where
return x = TcS (\_ -> return x)
fail err = TcS (\_ -> fail err)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment