updateFile :: World m => Result Text -> m ()
updateFile result =
    case result of
        NoChange _ _ -> return ()
        Changed outputFile outputText -> World.writeUtf8File outputFile outputText
updateFile :: World m => Result Text -> m ()
updateFile result =
    case result of
        NoChange _ _ -> return ()
        Changed outputFile outputText -> World.writeUtf8File outputFile outputText
updateFile result =
    case result of
        NoChange _ _ -> return ()
        Changed outputFile outputText -> World.writeUtf8File outputFile outputText