git.iko.soy/jsaddle
on master help sign in
Add Eq to JSValue and add infixr for <#
48a7cf9Hamish Mackenzie
src/Language/Javascript/JSC/Object.hs+1
compare with master
unifiedsplit
@@ -212,6 +212,7 @@ prop # args = do
212 (this, f) <- objGetProperty' rprop
212 (this, f) <- objGetProperty' rprop
213 rethrow $ objCallAsFunction f this args
213 rethrow $ objCallAsFunction f this args
214
214
215+infixr 0 <#
215(<#) :: (MakePropRef prop, MakeValueRef val)
216(<#) :: (MakePropRef prop, MakeValueRef val)
216 => prop -> val -> JSC JSPropRef
217 => prop -> val -> JSC JSPropRef
217prop <# val = do
218prop <# val = do
src/Language/Javascript/JSC/Value.hs+1−1
@@ -86,7 +86,7 @@ data JSValue = ValNull
86 | ValBool JSBool
86 | ValBool JSBool
87 | ValNumber JSNumber
87 | ValNumber JSNumber
88 | ValString JSString
88 | ValString JSString
89− | ValObject JSObjectRef deriving(Show)
89+ | ValObject JSObjectRef deriving(Show, Eq)
90
90
91valToBool :: JSValueRef -> JSC JSBool
91valToBool :: JSValueRef -> JSC JSBool
92valToBool jsvar = do
92valToBool jsvar = do