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
1 changed files with 6 additions and 0 deletions

View File

@ -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