tion mod) ⇒ base → Maybe mod → IO [Entry]
allLocalisations game mod = do
    rawLocalisations ← getLocalisations game mod
    if any isLeft rawLocalisations
    then TIO.putStr (T.unlines $ lefts rawLocalisations) >> return []
    else return $ concat $ rights rawLocalisations
getLocalisations :: (FileCollection base, FileCollection mo
allLocalisations :: (FileCollection base, FileCollection mod) ⇒ base → Maybe mod → IO [Entry]
allLocalisations game mod = do
    rawLocalisations ← getLocalisations game mod
    if any isLeft rawLocalisations
    then TIO.putStr (T.unlines $ lefts rawLocalisations) >> return []
    else return $ concat $ rights rawLocalisations
allLocalisations game mod = do
    rawLocalisations ← getLocalisations game mod
    if any isLeft rawLocalisations
    then TIO.putStr (T.unlines $ lefts rawLocalisations) >> return []
    else return $ concat $ rights rawLocalisations