From a31b71c2d88de6f78409be711caa8c14f247821a Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Sun, 20 Dec 2015 08:17:30 +0300
Subject: [PATCH] [FIX] Generalize escape character

---
 src/GHCMod/Options/ShellEscape.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GHCMod/Options/ShellEscape.hs b/src/GHCMod/Options/ShellEscape.hs
index 6cfe1ce..01aee7e 100644
--- a/src/GHCMod/Options/ShellEscape.hs
+++ b/src/GHCMod/Options/ShellEscape.hs
@@ -35,7 +35,7 @@ go (esc:c:cl) curarg accargs quote
   | isEscapeChar esc
   = if isEscapable c
     then go cl (c:curarg) accargs quote
-    else go (c:cl) ('\\':curarg) accargs quote
+    else go (c:cl) (esc:curarg) accargs quote
 -- quote character -- opens quotes
 go (c:cl) curarg accargs Nothing
   | isQuote c = go cl curarg accargs (Just c)