Minor sample fix of liftIO for GHC >= 8.0

PR https://github.com/mongodb-haskell/mongodb/pull/121
This commit is contained in:
Victor Denisov 2021-06-13 21:50:50 -07:00
commit 6d338dac69

View file

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ExtendedDefaultRules #-} {-# LANGUAGE ExtendedDefaultRules #-}
@ -7,7 +8,12 @@ import Database.MongoDB (Action, Document, Document, Value, access,
close, connect, delete, exclude, find, close, connect, delete, exclude, find,
host, insertMany, master, project, rest, host, insertMany, master, project, rest,
select, sort, (=:)) select, sort, (=:))
#if (__GLASGOW_HASKELL__ >= 800)
import Control.Monad.IO.Class (liftIO)
#else
import Control.Monad.Trans (liftIO) import Control.Monad.Trans (liftIO)
#endif
main :: IO () main :: IO ()
main = do main = do