compat for old transformers

nomeata · Jun 13, 2020 · db1a27a · db1a27a
1 parent 60bc32f
commit db1a27a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/GHC/HeapView/Graph.hs b/src/GHC/HeapView/Graph.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE LambdaCase, RecordWildCards #-}
+{-# LANGUAGE CPP, LambdaCase, RecordWildCards #-}
 {- | Conversions between 'HeapGraph' and 'Graph'.
 
 You may also be interested in the @graphviz@ package which has conversions
@@ -22,7 +22,11 @@ import Data.Graph.Inductive.PatriciaTree (Gr)
 
 import Control.Monad.Trans.Class
 import Control.Monad.Trans.Maybe
+#if MIN_VERSION_transformers(0,5,6,0)
 import Control.Monad.Trans.Writer.CPS
+#else
+import Control.Monad.Trans.Writer.Strict
+#endif
 import qualified Data.IntMap as M
 import qualified Data.Foldable as F
 import Data.List