From 36ed9aef24c100bd99e67b345713ea056dd8a6cf Mon Sep 17 00:00:00 2001
From: d10genes <wcbeard10@gmail.com>
Date: Mon, 1 Sep 2014 15:18:50 -0400
Subject: [PATCH] update example to compile

---
 example/tutorial/bower.json    |  2 +-
 example/tutorial/tutorial.purs |  4 ++--
 gulpfile.js                    |  3 ++-
 package.json                   |  4 ++--
 src/React/DOM.purs             | 13 -------------
 5 files changed, 7 insertions(+), 19 deletions(-)

diff --git a/example/tutorial/bower.json b/example/tutorial/bower.json
index abf5a62..f53cf5d 100644
--- a/example/tutorial/bower.json
+++ b/example/tutorial/bower.json
@@ -20,7 +20,7 @@
     "react": "~0.10.0",
     "showdown": "~0.3.1",
     "purescript-showdown": "https://github.com/joneshf/purescript-showdown.git",
-    "purescript-arrays": "~0.1.3",
+    "purescript-arrays": "~0.2.1",
     "jquery": "~2.1.1"
   }
 }
diff --git a/example/tutorial/tutorial.purs b/example/tutorial/tutorial.purs
index e8f14fd..a78ea77 100644
--- a/example/tutorial/tutorial.purs
+++ b/example/tutorial/tutorial.purs
@@ -4,7 +4,7 @@ module Tutorial where
   -- http://facebook.github.io/react/docs/tutorial.html
 
   import Control.Monad.Eff
-  import Data.Array
+  import Data.Array hiding (span)
   import React
   import React.DOM
   import Showdown
@@ -28,7 +28,7 @@ module Tutorial where
     \  var load = loadCommentsFromServer.bind(this);\
     \  load();\
     \  setInterval(function() { load(); }, this.props.pollInterval);\
-    \}" :: forall eff props state. ReadState eff props state {}
+    \}" :: forall eff. Eff ( reactState :: ReactState (read :: ReadAllowed) Unit | eff ) Unit
 
 
   commentList = mkUI spec do
diff --git a/gulpfile.js b/gulpfile.js
index 733585d..472d365 100644
--- a/gulpfile.js
+++ b/gulpfile.js
@@ -20,7 +20,8 @@ var paths = {
                 'example/tutorial/tutorial.purs',
                 'bower_components/purescript-*/src/**/*.purs',
                 'example/tutorial/bower_components/purescript-*/src/**/*.purs'
-            ]
+            ],
+            dest: '.'
         }
     }
 };
diff --git a/package.json b/package.json
index b68f160..3cac9f5 100644
--- a/package.json
+++ b/package.json
@@ -17,7 +17,7 @@
   },
   "homepage": "https://github.com/purescript-contrib/purescript-react",
   "devDependencies": {
-    "gulp": "^3.6.2",
-    "gulp-purescript": "0.0.4"
+    "gulp": "^3.8.7",
+    "gulp-purescript": "0.0.10"
   }
 }
diff --git a/src/React/DOM.purs b/src/React/DOM.purs
index 0cf7770..5d379e9 100644
--- a/src/React/DOM.purs
+++ b/src/React/DOM.purs
@@ -363,7 +363,6 @@ module React.DOM where
   html = mkDOM "html"
   i = mkDOM "i"
   iframe = mkDOM "iframe"
-  iframe = mkDOM "iframe"
   img = mkDOM "img"
   input = mkDOM "input"
   ins = mkDOM "ins"
@@ -389,17 +388,14 @@ module React.DOM where
   output = mkDOM "output"
   p = mkDOM "p"
   param = mkDOM "param"
-  param = mkDOM "param"
   pre = mkDOM "pre"
   progress = mkDOM "progress"
   q = mkDOM "q"
   rp = mkDOM "rp"
-  rp = mkDOM "rp"
   rt = mkDOM "rt"
   ruby = mkDOM "ruby"
   s = mkDOM "s"
   samp = mkDOM "samp"
-  samp = mkDOM "samp"
   script = mkDOM "script"
   section = mkDOM "section"
   select = mkDOM "select"
@@ -424,7 +420,6 @@ module React.DOM where
   track = mkDOM "track"
   u = mkDOM "u"
   ul = mkDOM "ul"
-  ul = mkDOM "ul"
   var = mkDOM "var"
   video = mkDOM "video"
   wbr = mkDOM "wbr"
@@ -432,7 +427,6 @@ module React.DOM where
   defs = mkDOM "defs"
   g = mkDOM "g"
   line = mkDOM "line"
-  line = mkDOM "line"
   linearGradient = mkDOM "linearGradient"
   path = mkDOM "path"
   polygon = mkDOM "polygon"
@@ -452,7 +446,6 @@ module React.DOM where
   audio' = audio []
   b' = b []
   base' = base []
-  base' = base []
   bdi' = bdi []
   bdo' = bdo []
   big' = big []
@@ -492,7 +485,6 @@ module React.DOM where
   html' = html []
   i' = i []
   iframe' = iframe []
-  iframe' = iframe []
   img' = img []
   input' = input []
   ins' = ins []
@@ -518,17 +510,14 @@ module React.DOM where
   output' = output []
   p' = p []
   param' = param []
-  param' = param []
   pre' = pre []
   progress' = progress []
   q' = q []
   rp' = rp []
-  rp' = rp []
   rt' = rt []
   ruby' = ruby []
   s' = s []
   samp' = samp []
-  samp' = samp []
   script' = script []
   section' = section []
   select' = select []
@@ -553,7 +542,6 @@ module React.DOM where
   track' = track []
   u' = u []
   ul' = ul []
-  ul' = ul []
   var' = var []
   video' = video []
   wbr' = wbr []
@@ -561,7 +549,6 @@ module React.DOM where
   defs' = defs []
   g' = g []
   line' = line []
-  line' = line []
   linearGradient' = linearGradient []
   path' = path []
   polygon' = polygon []