diff --git a/HSCParser.hs b/HSCParser.hs
index dc6ab261e443003588c9729c014cd0f2f1ce3878..6f359b6454a47ce88b7dee094fb6c386660bf3c3 100644
--- a/HSCParser.hs
+++ b/HSCParser.hs
@@ -167,7 +167,7 @@ text = do
         '\"':_        -> do anyChar_; hsString '\"'; text
         -- See Note [Single Quotes]
         '\'':'\\':_ -> do anyChar_; hsString '\''; text -- Case 1
-        '\'':d:'\'':_ -> do any3Chars_; text -- Case 2
+        '\'':_:'\'':_ -> do any3Chars_; text -- Case 2
         '\'':d:_ | isSpace d -> do -- Case 3
           any2Chars_
           manySatisfy_ (\c' -> isSpace c')
diff --git a/hsc2hs.cabal b/hsc2hs.cabal
index d4292eb524be68a72ea9e7f94f89df468a7ae896..191e66161b13606e27b66d6cbb2392a412107163 100644
--- a/hsc2hs.cabal
+++ b/hsc2hs.cabal
@@ -61,6 +61,8 @@ Executable hsc2hs
                    directory  >= 1.1.0 && < 1.4,
                    filepath   >= 1.2.0 && < 1.5,
                    process    >= 1.1.0 && < 1.7
+
+    ghc-options:   -Wall
     if flag(in-ghc-tree)
        cpp-options: -DIN_GHC_TREE