48a7cf9 · jsaddle · git.iko.soy

git.iko.soy/jsaddle

Add Eq to JSValue and add infixr for <#

commit48a7cf92be2bde17faf03368f6a4cbb9e2fd042b authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com> dateFri 28 Dec 2012, 22:05 (14 years ago) parenta930098

2 files changed+2−1

compare with master

unifiedsplit

src/Language/Javascript/JSC/Object.hs+1 src/Language/Javascript/JSC/Value.hs+1−1

src/Language/Javascript/JSC/Object.hs+1

@@ -212,6 +212,7 @@ prop # args = do

212212 (this, f) <- objGetProperty' rprop

213213 rethrow $ objCallAsFunction f this args

214214

215+infixr 0 <#

215216(<#) :: (MakePropRef prop, MakeValueRef val)

216217 => prop -> val -> JSC JSPropRef

217218prop <# val = do

src/Language/Javascript/JSC/Value.hs+1−1

@@ -86,7 +86,7 @@ data JSValue = ValNull

8686 | ValBool JSBool

8787 | ValNumber JSNumber

8888 | ValString JSString

89− | ValObject JSObjectRef deriving(Show)

89+ | ValObject JSObjectRef deriving(Show, Eq)

9090

9191valToBool :: JSValueRef -> JSC JSBool

9292valToBool jsvar = do