parse :: ConflictParser
parse baseName =
   case P.parse baseName of
        Just (P.FileInfo realBaseName host date) ->
           Just (realBaseName, "Version " <> date <> " from " <> host)

        Nothing -> Nothing
parse :: ConflictParser
parse baseName =
   case P.parse baseName of
        Just (P.FileInfo realBaseName host date) ->
           Just (realBaseName, "Version " <> date <> " from " <> host)

        Nothing -> Nothing
parse baseName =
   case P.parse baseName of
        Just (P.FileInfo realBaseName host date) ->
           Just (realBaseName, "Version " <> date <> " from " <> host)

        Nothing -> Nothing