#2875: Correct SYB's representation of Char
authorjpm@cs.uu.nl <unknown>
Mon, 19 Jan 2009 11:24:09 +0000 (11:24 +0000)
committerjpm@cs.uu.nl <unknown>
Mon, 19 Jan 2009 11:24:09 +0000 (11:24 +0000)
Language/Haskell/TH/Quote.hs

index 8b1426a..08e19f1 100644 (file)
@@ -28,10 +28,8 @@ dataToQa mkCon mkLit appCon antiQ t =
                 mkLit $ integerL n
             FloatConstr n ->
                 mkLit $ rationalL (toRational n)
-            StringConstr (c:_) ->
+            CharConstr c ->
                 mkLit $ charL c
-            StringConstr [] ->
-                fail "StringConstr with no name"
         where
           constr :: Constr
           constr = toConstr t