[Refactor] Remove superfluous lazy pattern match

Author: ynishiza

Control/Monad/Trans/State/Lazy.hs

@@ -168,15 +168,15 @@ newtype StateT s m a = StateT { runStateT :: s -> m (a,s) }
 --
 -- * @'evalStateT' m s = 'liftM' 'fst' ('runStateT' m s)@
 evalStateT :: Functor m => StateT s m a -> s -> m a
-evalStateT m s = (\(~(a, _)) -> a) <$> runStateT m s
+evalStateT m s = (\(a, _) -> a) <$> runStateT m s
 {-# INLINE evalStateT #-}
 
 -- | Evaluate a state computation with the given initial state
 -- and return the final state, discarding the final value.
 --
 -- * @'execStateT' m s = 'liftM' 'snd' ('runStateT' m s)@
 execStateT :: Functor m => StateT s m a -> s -> m s
-execStateT m s = (\(~(_, s')) -> s') <$> runStateT m s
+execStateT m s = (\(_, s') -> s') <$> runStateT m s
 {-# INLINE execStateT #-}
 
 -- | Map both the return value and final state of a computation using