From 340c52572212a1918a8ac1e5faac8cb5a5cc079a Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Sun, 24 Dec 2017 22:58:37 +0300
Subject: Fix a typo

---
 Pancake.hs         | 2 +-
 Pancake/Reading.hs | 2 +-
 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
-- 
cgit v1.2.3