Minor sample fix of liftIO for GHC >= 8.0
PR https://github.com/mongodb-haskell/mongodb/pull/121
This commit is contained in:
commit
6d338dac69
1 changed files with 6 additions and 0 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue