Fix types after merge

This commit is contained in:
Filip Sodić 2024-01-21 11:17:55 +01:00
parent 662219cd69
commit 453986cf1a

View File

@ -17,8 +17,8 @@ replaceTemplatePlaceholdersInWaspFile ::
NewProjectAppName -> NewProjectName -> Path' Abs (Dir WaspProjectDir) -> IO ()
replaceTemplatePlaceholdersInWaspFile appName projectName projectDir = do
findWaspFile projectDir >>= \case
Left _ -> return ()
Right absMainWaspFile ->
Nothing -> return ()
Just absMainWaspFile ->
updateFileContentWith absMainWaspFile (replacePlaceholders waspFileReplacements)
where
updateFileContentWith :: Path' Abs (File f) -> (Text -> Text) -> IO ()