From 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 19 Mar 2026 21:26:09 +0100 Subject: default-language: Haskell2010 -> GHC2024 --- src/Much/ParseMail.hs | 28 +++++++++++++--------------- 1 file changed, 13 insertions(+), 15 deletions(-) (limited to 'src/Much/ParseMail.hs') 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 -- cgit v1.2.3