From d252912df57ba117982133f41b0ab02452565216 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 20 Feb 2024 20:46:45 +0100 Subject: Fix compatibility with mtl-2.3 --- main/Test.hs | 1 + src/Erebos/Attach.hs | 1 + src/Erebos/Channel.hs | 1 + src/Erebos/Message.hs | 1 + src/Erebos/Pairing.hs | 1 + src/Erebos/Storage/Key.hs | 1 + 6 files changed, 6 insertions(+) diff --git a/main/Test.hs b/main/Test.hs index 7f0f7d9..8a205ea 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -5,6 +5,7 @@ module Test ( import Control.Arrow import Control.Concurrent import Control.Exception +import Control.Monad import Control.Monad.Except import Control.Monad.Reader import Control.Monad.State diff --git a/src/Erebos/Attach.hs b/src/Erebos/Attach.hs index 4fd976f..bd2f521 100644 --- a/src/Erebos/Attach.hs +++ b/src/Erebos/Attach.hs @@ -5,6 +5,7 @@ module Erebos.Attach ( attachReject, ) where +import Control.Monad import Control.Monad.Except import Control.Monad.Reader diff --git a/src/Erebos/Channel.hs b/src/Erebos/Channel.hs index c10f971..5f66637 100644 --- a/src/Erebos/Channel.hs +++ b/src/Erebos/Channel.hs @@ -14,6 +14,7 @@ module Erebos.Channel ( import Control.Concurrent.MVar import Control.Monad import Control.Monad.Except +import Control.Monad.IO.Class import Crypto.Cipher.ChaChaPoly1305 import Crypto.Error diff --git a/src/Erebos/Message.hs b/src/Erebos/Message.hs index 50e4acb..ea86ca0 100644 --- a/src/Erebos/Message.hs +++ b/src/Erebos/Message.hs @@ -16,6 +16,7 @@ module Erebos.Message ( formatMessage, ) where +import Control.Monad import Control.Monad.Except import Control.Monad.Reader diff --git a/src/Erebos/Pairing.hs b/src/Erebos/Pairing.hs index 4541f6e..2166e71 100644 --- a/src/Erebos/Pairing.hs +++ b/src/Erebos/Pairing.hs @@ -10,6 +10,7 @@ module Erebos.Pairing ( pairingReject, ) where +import Control.Monad import Control.Monad.Except import Control.Monad.Reader diff --git a/src/Erebos/Storage/Key.hs b/src/Erebos/Storage/Key.hs index 4a97976..b6afc20 100644 --- a/src/Erebos/Storage/Key.hs +++ b/src/Erebos/Storage/Key.hs @@ -7,6 +7,7 @@ module Erebos.Storage.Key ( import Control.Concurrent.MVar import Control.Monad import Control.Monad.Except +import Control.Monad.IO.Class import Data.ByteArray import qualified Data.ByteString.Char8 as BC -- cgit v1.2.3