git.iko.soy/typeable/ether
on master help sign in
Compile without warnings
d1a6274Index Int
src/Control/Ether/Util.hs−2
compare with master
unifiedsplit
@@ -9,8 +9,6 @@ module Control.Ether.Util
9 , fmap
9 , fmap
10 ) where
10 ) where
11
11
12−import qualified Control.Monad.Signatures as Sig
13−import qualified Control.Monad.Trans.Writer as Trans
14import Prelude hiding (fmap)
12import Prelude hiding (fmap)
15
13
16#if __GLASGOW_HASKELL__ < 710
14#if __GLASGOW_HASKELL__ < 710
src/Control/Monad/Trans/Ether/Writer.hs+2−2
@@ -86,10 +86,10 @@ instance Monoid w => Lift.LiftLocal (WriterT tag w)
86instance Monoid w => Lift.LiftCatch (WriterT tag w)
86instance Monoid w => Lift.LiftCatch (WriterT tag w)
87
87
88instance Monoid w' => Lift.LiftListen (WriterT tag w') where
88instance Monoid w' => Lift.LiftListen (WriterT tag w') where
89− liftListen listen m = WriterT $ Lift.liftListen listen (coerce m)
89+ liftListen listen' m = WriterT $ Lift.liftListen listen' (coerce m)
90
90
91instance Monoid w' => Lift.LiftPass (WriterT tag w') where
91instance Monoid w' => Lift.LiftPass (WriterT tag w') where
92− liftPass pass m = WriterT $ Lift.liftPass pass (coerce m)
92+ liftPass pass' m = WriterT $ Lift.liftPass pass' (coerce m)
93
93
94instance Monoid w => Lift.LiftCallCC (WriterT tag w) where
94instance Monoid w => Lift.LiftCallCC (WriterT tag w) where
95 liftCallCC callCC f = WriterT $ Lift.liftCallCC callCC (coerce f)
95 liftCallCC callCC f = WriterT $ Lift.liftCallCC callCC (coerce f)