Minor sample fix of LiftIO for GHC >= 8.0

parsonsmatt · May 1, 2021 · 4d0ccf8 · 4d0ccf8
1 parent 952aed5
commit 4d0ccf8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/doc/Example.hs b/doc/Example.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ExtendedDefaultRules #-}
 
@@ -7,7 +8,12 @@ import Database.MongoDB    (Action, Document, Document, Value, access,
                             close, connect, delete, exclude, find,
                             host, insertMany, master, project, rest,
                             select, sort, (=:))
+
+#if (__GLASGOW_HASKELL__ >= 800)
+import Control.Monad.IO.Class (liftIO)
+#else
 import Control.Monad.Trans (liftIO)
+#endif
 
 main :: IO ()
 main = do