diff --git a/examples/circle/src/Main.purs b/examples/circle/src/Main.purs index 2f34f83..010c30b 100644 --- a/examples/circle/src/Main.purs +++ b/examples/circle/src/Main.purs @@ -31,14 +31,15 @@ ui = H.mkComponent { initialState where render :: State -> H.ComponentHTML Action () g render state = - SE.svg [SA.viewBox x y w h] - [ SE.circle - [ SA.r (if state.on then w/6.0 else w/3.0) - , SA.fill $ Just (SA.RGB 0 0 100) - , HE.onClick (const $ Just ToggleState) + SE.svg + [ SA.viewBox x y w h ] + [ SE.circle + [ SA.r (if state.on then w/6.0 else w/3.0) + , SA.fill $ Just (SA.RGB 0 0 100) + , HE.onClick (const $ Just ToggleState) + ] + [] ] - ] - where h = 150.0 w = 150.0 diff --git a/package.json b/package.json index cd93729..62f0202 100644 --- a/package.json +++ b/package.json @@ -4,7 +4,7 @@ "postinstall": "spago install", "build": "spago build --purs-args '--strict'", "test": "spago test --purs-args '--strict'", - "examples:circle:build": "spago build --config examples/circle/spago.dhall", + "examples:circle:build": "spago --config examples/circle/spago.dhall build", "examples:circle:bundle-app": "spago --config examples/circle/spago.dhall bundle-app --to examples/circle/dist/app.js" }, "devDependencies": { diff --git a/test/Main.purs b/test/Main.purs index fa8eec3..daa68f9 100644 --- a/test/Main.purs +++ b/test/Main.purs @@ -11,7 +11,7 @@ import Effect.Console (log) render :: forall state w i . state -> HH.HTML w i render _ = - SE.svg [ SA.viewBox 0.0 0.0 100.0 100.0 ] [ SE.circle [ SA.r 10.0 ] ] + SE.svg [ SA.viewBox 0.0 0.0 100.0 100.0 ] [ SE.circle [ SA.r 10.0 ] [] ] -- not a real test, just making sure things compile