diff options
Diffstat (limited to 'src/Much/ParseMail.hs')
| -rw-r--r-- | src/Much/ParseMail.hs | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/src/Much/ParseMail.hs b/src/Much/ParseMail.hs index d9bb733..6644db6 100644 --- a/src/Much/ParseMail.hs +++ b/src/Much/ParseMail.hs @@ -1,26 +1,24 @@ -{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} module Much.ParseMail (readMail) where -import qualified Data.Attoparsec.ByteString.Char8 as A8 -import qualified Data.ByteString as BS -import qualified Data.ByteString.Char8 as BS8 -import qualified Data.ByteString.Lazy as LBS -import qualified Data.CaseInsensitive as CI -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as LT -import qualified Data.Text.Lazy.Encoding as LT -import qualified Network.Email.Header.Parser as P -import qualified Network.Email.Header.Types as H -import qualified Network.Mail.Mime as M import Codec.MIME.Parse -import qualified Codec.MIME.QuotedPrintable as QP +import Codec.MIME.QuotedPrintable qualified as QP import Codec.MIME.Type import Control.Applicative +import Data.Attoparsec.ByteString.Char8 qualified as A8 +import Data.ByteString qualified as BS +import Data.ByteString.Char8 qualified as BS8 +import Data.ByteString.Lazy qualified as LBS +import Data.CaseInsensitive qualified as CI import Data.Char - +import Data.Text qualified as T +import Data.Text.Encoding qualified as T +import Data.Text.Lazy qualified as LT +import Data.Text.Lazy.Encoding qualified as LT +import Network.Email.Header.Parser qualified as P +import Network.Email.Header.Types qualified as H +import Network.Mail.Mime qualified as M -- TODO eventually we want our completely own Address, i.e. w/o M.Address |