Drop support for single quotes in interactive mode

2015-12-20 07:01:46 +03:00
parent d0c53ec937
commit 06be93bb89
2 changed files with 1 additions and 23 deletions
--- a/src/GHCMod/Options/ShellEscape.hs
+++ b/src/GHCMod/Options/ShellEscape.hs
@@ -19,7 +19,7 @@ import Data.Char
 import Data.Maybe

 isQuote :: Char -> Bool
-isQuote = (`elem` "\"'")
+isQuote = (==) '"'

 isEscapeChar :: Char -> Bool
 isEscapeChar = (==) '\\'