From 0be4a8a7d3d733182f7c1dcb49e3201e3c3b793c Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Mon, 6 Nov 2017 07:43:04 +0300
Subject: Fix an error message

---
 Pancake.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index 914c242..f950188 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -123,7 +123,7 @@ loadDocument sType rawURI = do
             handle
               (\(e :: SomeException) ->
                  putErrLn (concat ["Failed to open `", tmpPath, "` with `"
-                                  , cmd, "`: ", show e])) $ do
+                                  , ev, "`: ", show e])) $ do
               createDirectoryIfMissing True dir
               BS.writeFile tmpPath rawDoc
               curEnv <- getEnvironment
-- 
cgit v1.2.3