diff options
| author | tv <tv@krebsco.de> | 2026-03-19 21:26:09 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2026-03-19 22:36:50 +0100 |
| commit | 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 (patch) | |
| tree | 0775bbb5b4d55c13c9f2c9a7a04267a7ed9b45f0 /src/Much/ParseMail.hs | |
| parent | f06e531ecfae6b36df10e2861500490f38a82de5 (diff) | |
default-language: Haskell2010 -> GHC2024
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 |
