diff options
Diffstat (limited to 'src/Network/Mail/Mime.hs')
| -rw-r--r-- | src/Network/Mail/Mime.hs | 36 |
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) |
