Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor sample fix of LiftIO for GHC >= 8.0

Browse source
This commit is contained in:
Carlos Saltos 2021-05-02 01:45:35 +03:00
parent 952aed5a1f
commit 4d0ccf84ef
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doc/Example.hs
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