@@ -214,7 +214,7 @@ translateExpression _ (SOp op vars)
214214 | LMod <- op
215215 , (lhs:rhs:_) <- vars = translateBinaryOp "%" lhs rhs
216216 | LEq <- op
217− , (lhs:rhs:_) <- vars = translateBinaryOp "===" lhs rhs
217+ , (lhs:rhs:_) <- vars = translateBinaryOp "==" lhs rhs
218218 | LLt <- op
219219 , (lhs:rhs:_) <- vars = translateBinaryOp "<" lhs rhs
220220 | LLe <- op
@@ -233,7 +233,7 @@ translateExpression _ (SOp op vars)
233233 | LFDiv <- op
234234 , (lhs:rhs:_) <- vars = translateBinaryOp "/" lhs rhs
235235 | LFEq <- op
236− , (lhs:rhs:_) <- vars = translateBinaryOp "===" lhs rhs
236+ , (lhs:rhs:_) <- vars = translateBinaryOp "==" lhs rhs
237237 | LFLt <- op
238238 , (lhs:rhs:_) <- vars = translateBinaryOp "<" lhs rhs
239239 | LFLe <- op
@@ -254,7 +254,7 @@ translateExpression _ (SOp op vars)
254254 | LBMod <- op
255255 , (lhs:rhs:_) <- vars = translateBinaryOp "%" lhs rhs
256256 | LBEq <- op
257− , (lhs:rhs:_) <- vars = translateBinaryOp "===" lhs rhs
257+ , (lhs:rhs:_) <- vars = translateBinaryOp "==" lhs rhs
258258 | LBLt <- op
259259 , (lhs:rhs:_) <- vars = translateBinaryOp "<" lhs rhs
260260 | LBLe <- op
@@ -330,12 +330,12 @@ translateCase modname _ (SDefaultCase e) =
330330 createIfBlock "true" (translateExpression modname e)
331331
332332translateCase modname var (SConstCase cst e) =
333− let cond = var ++ " === " ++ translateConstant cst in
333+ let cond = var ++ " == " ++ translateConstant cst in
334334 createIfBlock cond (translateExpression modname e)
335335
336336translateCase modname var (SConCase a i name vars e) =
337337 let isCon = var ++ " instanceof __IDR__.Con"
338− isI = show i ++ " === " ++ var ++ ".i"
338+ isI = show i ++ " == " ++ var ++ ".i"
339339 params = intercalate "," $ map (("__var_" ++) . show) [a..(a+length vars)]
340340 args = ".apply(this," ++ var ++ ".vars)"
341341 f b =