summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2024-02-20 20:46:45 +0100
committerRoman Smrž <roman.smrz@seznam.cz>2024-02-20 20:46:45 +0100
commitd252912df57ba117982133f41b0ab02452565216 (patch)
tree9b9edd19ab223f8f2edf586063048ca8d9ef1c5a /src
parent43afce581e3cee0c85a2992b88a29e0fc8340242 (diff)
Fix compatibility with mtl-2.3
Diffstat (limited to 'src')
-rw-r--r--src/Erebos/Attach.hs1
-rw-r--r--src/Erebos/Channel.hs1
-rw-r--r--src/Erebos/Message.hs1
-rw-r--r--src/Erebos/Pairing.hs1
-rw-r--r--src/Erebos/Storage/Key.hs1
5 files changed, 5 insertions, 0 deletions
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