Browse files

Renamed x to run

  • Loading branch information...
1 parent 8e58b5a commit b9348a5bfb1beea9f1daeb6341e75dfa84ed036a @basvandijk committed Mar 7, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 Control/Monad/Trans/Control.hs
View
2 Control/Monad/Trans/Control.hs
@@ -172,7 +172,7 @@ defaultLiftWith ∷ (Monad m, MonadTransControl n)
( b. StT n b StT t b) -- ^ 'StT' constructor
(Run t m a)
t m a
-defaultLiftWith t unT stT = \f t $ liftWith $ \x f $ liftM stT x unT
+defaultLiftWith t unT stT = \f t $ liftWith $ \run f $ liftM stT run unT
{-# INLINE defaultLiftWith #-}
defaultRestoreT (Monad m, MonadTransControl n)

0 comments on commit b9348a5

Please sign in to comment.