Correct mtl-2.3 compatibility fix that does not require CPP

fpco · Oct 31, 2024 · 49fbc3c · 49fbc3c
1 parent 00003fc
commit 49fbc3c
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/Weigh.hs b/src/Weigh.hs
@@ -3,7 +3,6 @@
 {-# LANGUAGE DeriveTraversable #-}
 {-# LANGUAGE DeriveFoldable #-}
 {-# LANGUAGE DeriveFunctor #-}
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE ExistentialQuantification #-}
 {-# LANGUAGE ViewPatterns #-}
@@ -75,10 +74,8 @@ module Weigh
 import Control.Applicative
 import Control.Arrow
 import Control.DeepSeq
-#if MIN_VERSION_base(4,18,0)
 import Control.Monad (unless)
-#endif
-import Control.Monad.State
+import Control.Monad.State (State, execState, get, gets, modify)
 import Criterion.Measurement
 import qualified Data.Foldable as Foldable
 import qualified Data.List as List