fromByteString,
    fromText,
    evalDiffs,

import Data.Functor

import Data.ByteString (ByteString)

import Data.Text.Encoding (decodeUtf8')

import Repr.Interpret

import Repr.Interpret

readDeckList ::
    (DeckSYM repr) =>
    FilePath
    -> IO (Either [ReadError] [DiffSig repr])
readDeckList p = do
    content <- windowsToLinuxNewLine <$> TIO.readFile p

windowsToLinuxNewLines :: Text -> Text
windowsToLinuxNewLines = T.replace "\r\n" "\n"
fromByteString ::
    (DeckSYM repr) => ByteString -> Either [ReadError] [DiffSig repr]
fromByteString content = do
    res <- mapLeft (const [IllegalFormat]) $ decodeUtf8' content
    fromText res
fromText :: (DeckSYM repr) => Text -> Either [ReadError] [DiffSig repr]
fromText content =

                $ T.breakOn "\n\n" content
    return $ liftA2 (++) mb sb

                . T.breakOn "\n\n"
                $ windowsToLinuxNewLines content
     in liftA2 (++) mb sb

    windowsToLinuxNewLine = T.replace "\r\n" "\n"

evalDiffs :: [DiffSig R] -> [DiffSig R] -> (Map Text Card, Map Text Card)
evalDiffs =
    let f = eval . evalMany
     in curry (f *** f)
readDeckList ::
    (DeckSYM repr) =>
    FilePath
    -> IO (Either [ReadError] [DiffSig repr])
readDeckList p = TIO.readFile p <&> fromText