diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-02-20 20:46:45 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-02-20 20:46:45 +0100 |
| commit | d252912df57ba117982133f41b0ab02452565216 (patch) | |
| tree | 9b9edd19ab223f8f2edf586063048ca8d9ef1c5a | |
| parent | 43afce581e3cee0c85a2992b88a29e0fc8340242 (diff) | |
Fix compatibility with mtl-2.3
| -rw-r--r-- | main/Test.hs | 1 | ||||
| -rw-r--r-- | src/Erebos/Attach.hs | 1 | ||||
| -rw-r--r-- | src/Erebos/Channel.hs | 1 | ||||
| -rw-r--r-- | src/Erebos/Message.hs | 1 | ||||
| -rw-r--r-- | src/Erebos/Pairing.hs | 1 | ||||
| -rw-r--r-- | src/Erebos/Storage/Key.hs | 1 |
6 files changed, 6 insertions, 0 deletions
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 |