summaryrefslogtreecommitdiffstats
path: root/src/Network/Mail/Mime.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Mail/Mime.hs')
-rw-r--r--src/Network/Mail/Mime.hs36
1 files changed, 19 insertions, 17 deletions
diff --git a/src/Network/Mail/Mime.hs b/src/Network/Mail/Mime.hs
index 8fd9fe1..8c6f580 100644
--- a/src/Network/Mail/Mime.hs
+++ b/src/Network/Mail/Mime.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE CPP, OverloadedStrings #-}
+
module Network.Mail.Mime
( -- * Datatypes
Boundary (..)
@@ -33,29 +34,30 @@ module Network.Mail.Mime
, quotedPrintable
) where
-import qualified Data.ByteString.Lazy as L
-import Blaze.ByteString.Builder.Char.Utf8
import Blaze.ByteString.Builder
-import System.Random
+import Blaze.ByteString.Builder.Char.Utf8
import Control.Arrow
-import System.Process
-import System.IO
-import System.Exit
-import System.FilePath (takeFileName)
-import qualified Data.ByteString.Base64 as Base64
-import Control.Monad ((<=<), foldM)
import Control.Exception (throwIO, ErrorCall (ErrorCall))
-import Data.List (intersperse)
-import qualified Data.Text.Lazy as LT
-import qualified Data.Text.Lazy.Encoding as LT
-import Data.ByteString.Char8 ()
+import Control.Monad ((<=<), foldM)
import Data.Bits ((.&.), shiftR)
+import Data.ByteString qualified as S
+import Data.ByteString.Base64 qualified as Base64
+import Data.ByteString.Char8 ()
+import Data.ByteString.Lazy qualified as L
import Data.Char (isAscii)
-import Data.Word (Word8)
-import qualified Data.ByteString as S
+import Data.List (intersperse)
import Data.Text (Text)
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as TE
+import Data.Text qualified as T
+import Data.Text.Encoding qualified as TE
+import Data.Text.Lazy qualified as LT
+import Data.Text.Lazy.Encoding qualified as LT
+import Data.Word (Word8)
+import System.Exit
+import System.FilePath (takeFileName)
+import System.IO
+import System.Process
+import System.Random
+
-- | Generates a random sequence of alphanumerics of the given length.
randomString :: RandomGen d => Int -> d -> (String, d)