showErrorMessage (BadInputFiles filePaths) =
  unlines
    [ "There was a problem reading one or more of the specified input files:"
    , ""
    , unlines $ map ((++) "    " . showInputMessage) filePaths
    , "Please check the given paths."
    ]
showErrorMessage (BadInputFiles filePaths) =
  unlines
    [ "There was a problem reading one or more of the specified input files:"
    , ""
    , unlines $ map ((++) "    " . showInputMessage) filePaths
    , "Please check the given paths."
    ]
showErrorMessage (BadInputFiles filePaths) =
  unlines
    [ "There was a problem reading one or more of the specified input files:"
    , ""
    , unlines $ map ((++) "    " . showInputMessage) filePaths
    , "Please check the given paths."
    ]