diff options
-rw-r--r-- | Pancake.hs | 2 | ||||
-rw-r--r-- | Pancake/Reading.hs | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -173,7 +173,7 @@ loadDocument sType rawURI = do ((shell ev) { env = Just (("FILE", tmpPath) : curEnv) }) $ \_ _ _ p -> waitForProcess p when (ec /= ExitSuccess) $ - putErrLn $ "An error occured. Exit code: " ++ show ec + putErrLn $ "An error occurred. Exit code: " ++ show ec pure (effectiveURI, mzero) -- | Visits an URI, updates history accordingly. diff --git a/Pancake/Reading.hs b/Pancake/Reading.hs index 43cf862..85390cd 100644 --- a/Pancake/Reading.hs +++ b/Pancake/Reading.hs @@ -120,7 +120,7 @@ retrieve cmd uri = do ec <- waitForProcess ph if ec /= ExitSuccess then do - putErrLn $ "An error occured. Exit code: " ++ show ec + putErrLn $ "An error occurred. Exit code: " ++ show ec case stderr of Nothing -> pure () Just stderr' -> do |