Fix CharLiteral support after merging

andyarvanitis · andyarvanitis · commit 9c138acdf19f · 2015-04-30T21:47:00.000-07:00
diff --git a/src/Language/PureScript/CoreImp/Desugar.hs b/src/Language/PureScript/CoreImp/Desugar.hs
@@ -168,6 +168,8 @@ moduleToCoreImp (Module coms mn imps exps externs decls) =
   literalBinder :: Ident -> [Statement Ann] -> Literal (CF.Binder Ann) -> m [Statement Ann]
   literalBinder varName done (NumericLiteral n) =
     return [IfElse nullAnn (BinaryOp nullAnn Equal (var varName) (Literal nullAnn $ NumericLiteral n)) done Nothing]
+  literalBinder varName done (CharLiteral c) =
+    return [IfElse nullAnn (BinaryOp nullAnn Equal (var varName) (str [c])) done Nothing]
   literalBinder varName done (StringLiteral s) =
     return [IfElse nullAnn (BinaryOp nullAnn Equal (var varName) (str s)) done Nothing]
   literalBinder varName done (BooleanLiteral True) =
