Suggest

type Replacement = { filename :: String, original :: String, position :: Position, replacement :: String }

type Suggestions = { files :: Ref (Map String (Array String)), replacements :: Array (Array Replacement) }

getSuggestions :: Array PsaError -> Effect Suggestions

applySuggestions :: Array PsaError -> Effect Unit

listSuggestions :: Array PsaError -> Effect String

replaceFile :: Array String -> String -> Array Replacement -> Effect Unit

replaceFile' :: Int -> Int -> List String -> List Replacement -> Either String (List String)

This is where all the real work happens. Steps through the source file, outputting replacement text when the position matches otherwise the original text. Objects if replacements overlap or go past the file end.

withNewlines :: List String -> List String