Simplify example in README

Author: paf31

README.md

@@ -29,32 +29,24 @@ import Prelude
 import Control.Monad.Eff
 
 import React
-import React.DOM
 
-hello = mkUI (spec unit) \ctx -> do
-  props <- getProps ctx
-  return $ h1 [ className "Hello"
-              ] 
-              [ text "Hello, "
-              , text props.name
-              ]
+import qualified React.DOM as D
+import qualified React.DOM.Props as P
 
 incrementCounter ctx e = do
   val <- readState ctx
   writeState ctx (val + 1)
 
 counter = mkUI (spec 0) \ctx -> do
   val <- readState ctx
-  return $ p [ className "Counter"
-             , onClick (incrementCounter ctx)
-             ] 
-             [ text (show val)
-             , text " Click me to increment!"
-             ]
+  return $ D.p [ P.className "Counter"
+               , P.onClick (incrementCounter ctx)
+               ] 
+               [ D.text (show val)
+               , D.text " Click me to increment!"
+               ]
 
 main = do
-  let component = div [] [ hello { name: "World" }
-                         , counter {}
-                         ]
+  let component = D.div [] [ counter {} ]
   renderToBody component
 ```

test/Main.purs

@@ -12,8 +12,8 @@ import qualified React.DOM.Props as P
 
 foreign import interval :: forall eff a. 
                              Int -> 
-                             Eff (console :: CONSOLE | eff) a ->
-                             Eff (console :: CONSOLE | eff) Unit
+                             Eff eff a ->
+                             Eff eff Unit
 
 hello = mkUI (spec unit) \ctx -> do
   props <- getProps ctx