showInputMessage :: InputFileMessage -> String

showInputMessage (FileDoesNotExist path) =
    path ++ ": File does not exist"
showInputMessage :: InputFileMessage -> String
showInputMessage (FileDoesNotExist path) =
    path ++ ": File does not exist"
showInputMessage (FileDoesNotExist path) =
    path ++ ": File does not exist"