Fix a typo

2 files changed, 2 insertions, 2 deletions

diff --git a/Pancake.hs b/Pancake.hs
index 4b2fd7e..160e0d5 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -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