Minor sample fix of liftIO for GHC >= 8.0

PR https://github.com/mongodb-haskell/mongodb/pull/121
2021-06-13 21:50:50 -07:00 · 2021-06-13 21:50:50 -07:00 · 6d338dac69
commit 6d338dac69
parent 82c539bd4a 4d0ccf84ef
1 changed files with 6 additions and 0 deletions
--- 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