From 58a6054e516a39afad36fec0ee253bdb634db204 Mon Sep 17 00:00:00 2001 From: mrsekut Date: Fri, 17 Dec 2021 00:21:34 +0900 Subject: [PATCH] PureScript: fix cmpOp supports MalTime and MalInt operations --- impls/purs/src/Core.purs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/impls/purs/src/Core.purs b/impls/purs/src/Core.purs index 88f6dd63c5..b5060032f0 100644 --- 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"