Fix MonadFail usage

SiriusCourses · Feb 11, 2020 · 4608821 · 4608821
1 parent 3e6ac61
commit 4608821
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Data/Bson.hs b/Data/Bson.hs
@@ -25,12 +25,12 @@ module Data.Bson (
   ObjectId(..), timestamp, genObjectId, showHexLen
 ) where
 
-import Prelude hiding (lookup)
+import Prelude hiding (fail, lookup)
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative ((<$>))
 #endif
 #if !MIN_VERSION_base(4,13,0)
-import Control.Monad.Fail (MonadFail)
+import Control.Monad.Fail (MonadFail(fail))
 #endif
 import Control.Monad (foldM)
 import Data.Bits (shift, (.|.))