Minor sample fix of LiftIO for GHC >= 8.0

This commit is contained in:
Carlos Saltos 2021-05-02 01:45:35 +03:00
parent 952aed5a1f
commit 4d0ccf84ef

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