diff options
-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 |