fix: allow parsing of mutt aliases using non-ASCII characters

configs/purebred.hs

@@ -37,6 +37,7 @@ import System.Environment (lookupEnv)
 import System.Exit (die)
 import System.IO.Unsafe
 
+import Data.MIME (defaultCharsets)
 import Purebred
 import Purebred.Storage.AddressBook.MuttAliasFile
 
@@ -86,7 +87,7 @@ main = do
 
   let addrsFile = fromMaybe cwd confdir <> "/aliases"
   addressBook <-
-    initMuttAliasFileAddressBook addrsFile
+    initMuttAliasFileAddressBook defaultCharsets addrsFile
     >>= either (die . show) pure
 
   purebred

src/Purebred/Storage/AddressBook/MuttAliasFile.hs

@@ -39,7 +39,7 @@ import qualified Data.Text as T
 import qualified Data.Text.Internal.Search as T
 import Control.Lens (Lens', lens, toListOf, folded, filtered, view)
 
-import Data.MIME (defaultCharsets)
+import Data.MIME (CharsetLookup)
 import Data.IMF (address, Address)
 
 import Purebred.Types.Error (Error(ParseError))
@@ -53,13 +53,13 @@ import Purebred.Types.String (decodeLenient)
 --
 -- https://gitlab.com/muttmua/mutt/-/wikis/MuttGuide/Aliases
 
-initMuttAliasFileAddressBook :: FilePath -> IO (Either Error AddressBook)
-initMuttAliasFileAddressBook filePath = do
+initMuttAliasFileAddressBook :: CharsetLookup -> FilePath -> IO (Either Error AddressBook)
+initMuttAliasFileAddressBook charsets filePath = do
   contents <- B.readFile filePath
   let mk addrs = AddressBook
         (\substr -> pure $ filterMuttAliases substr addrs)
         Nothing
-  pure $ bimap ParseError mk $ parseMuttAliasFile contents
+  pure $ bimap ParseError mk $ parseMuttAliasFile charsets contents
 
 filterMuttAliases :: T.Text -> [MuttAlias] -> [Address]
 filterMuttAliases substr =
@@ -73,13 +73,13 @@ matchesSubstring :: T.Text -> T.Text -> Bool
 matchesSubstring needle haystack = not $ null $ T.indices needle haystack
 
 -- | Parser functions to parse a mutt alias file
-parseMuttAliasFile :: B.ByteString -> Either String [MuttAlias]
-parseMuttAliasFile = parseOnly (muttalias `sepBy` endOfLine)
+parseMuttAliasFile :: CharsetLookup -> B.ByteString -> Either String [MuttAlias]
+parseMuttAliasFile charsets = parseOnly (muttalias charsets `sepBy` endOfLine)
 
-muttalias :: Parser MuttAlias
-muttalias = do
+muttalias :: CharsetLookup -> Parser MuttAlias
+muttalias charsets = do
  nick <- string "alias" *> space *> takeTill isSpace_w8
- add <- skipSpace *> address defaultCharsets
+ add <- skipSpace *> address charsets
  pure $ MuttAlias (decodeLenient nick) add
 
 -- | Parser Datatypes