PureScript: fix cmpOp supports MalTime and MalInt operations

asarhaddon · Dec 17, 2021 · 58a6054 · 58a6054
1 parent 4a3f6a1
commit 58a6054
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/impls/purs/src/Core.purs b/impls/purs/src/Core.purs
@@ -143,9 +143,11 @@ numOp op (MalTime n1 : MalTime n2 : Nil) = pure $ MalTime $ op n1 n2
 numOp _ _                                = throw "invalid operator"
 
 
-cmpOp ∷  (Int → Int → Boolean) → List MalExpr → Effect MalExpr
-cmpOp op (MalInt n1 : MalInt n2 : Nil)   = pure $ MalBoolean $ op n1 n2
-cmpOp op (MalTime n1 : MalTime n2 : Nil) = pure $ MalBoolean $ op (ceil n1) (ceil n2)
+cmpOp ∷  (Number → Number → Boolean) → List MalExpr → Effect MalExpr
+cmpOp op (MalInt n1 : MalInt n2 : Nil)   = pure $ MalBoolean $ op (toNumber n1) (toNumber n2)
+cmpOp op (MalInt n1 : MalTime n2 : Nil)  = pure $ MalBoolean $ op (toNumber n1) n2
+cmpOp op (MalTime n1 : MalInt n2 : Nil)  = pure $ MalBoolean $ op n1 (toNumber n2)
+cmpOp op (MalTime n1 : MalTime n2 : Nil) = pure $ MalBoolean $ op n1 n2
 cmpOp _ _                                = throw "invalid operator"