@@ -59,7 +59,7 @@ instance LiftListen (S.Strict.StateT s) where
5959
6060instance Monoid w' => LiftListen (RWS.Lazy.RWST r w' s) where
6161 liftListen listen m = RWS.Lazy.RWST $ \r s -> do
62− ((a, w', s'), w) <- listen (RWS.Lazy.runRWST m r s)
62+ ~((a, w', s'), w) <- listen (RWS.Lazy.runRWST m r s)
6363 return ((a, w), w', s')
6464
6565instance Monoid w' => LiftListen (RWS.Strict.RWST r w' s) where