From a9d7dbe4d077f067d980b7deda248a339e2e1a6f Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Fri, 2 Jun 2023 11:07:35 -0400
Subject: [PATCH] Get MonadFail from where it lives/lived before Prelude
---
src/Tahoe/SDMF/Internal/Converting.hs | 1 +
src/Tahoe/SDMF/Internal/Encoding.hs | 1 +
test/Spec.hs | 1 +
3 files changed, 3 insertions(+)
diff --git a/src/Tahoe/SDMF/Internal/Converting.hs b/src/Tahoe/SDMF/Internal/Converting.hs
index 84672ac..abd00f6 100644
--- a/src/Tahoe/SDMF/Internal/Converting.hs
+++ b/src/Tahoe/SDMF/Internal/Converting.hs
@@ -7,6 +7,7 @@
-}
module Tahoe.SDMF.Internal.Converting where
+import Control.Monad.Fail (MonadFail)
import Data.Int (Int64)
import Data.Word (Word16, Word32, Word64, Word8)
diff --git a/src/Tahoe/SDMF/Internal/Encoding.hs b/src/Tahoe/SDMF/Internal/Encoding.hs
index b34b91c..5d98a76 100644
--- a/src/Tahoe/SDMF/Internal/Encoding.hs
+++ b/src/Tahoe/SDMF/Internal/Encoding.hs
@@ -5,6 +5,7 @@
-}
module Tahoe.SDMF.Internal.Encoding where
+import Control.Monad.Fail (MonadFail)
import Control.Monad (when)
import Control.Monad.IO.Class (MonadIO (liftIO))
import Crypto.Hash (digestFromByteString)
diff --git a/test/Spec.hs b/test/Spec.hs
index 17d43b8..70e7b1e 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -8,6 +8,7 @@ import Hedgehog (
tripping,
)
+import Control.Monad.Fail (MonadFail)
import Control.Monad (when)
import Control.Monad.IO.Class (liftIO)
import Crypto.Cipher.Types (makeIV)
--
GitLab