Add hot module replacement

ethul · ethul · commit a0caf99300c9 · 2016-11-06T08:24:41.000-05:00
diff --git a/bower.json b/bower.json
@@ -2,6 +2,7 @@
   "name": "purescript-webpack-example",
   "private": true,
   "dependencies": {
-    "purescript-prelude": "^2.1.0"
+    "purescript-prelude": "^2.1.0",
+    "purescript-eff": "^2.0.0"
   }
 }
diff --git a/src/Entry.js b/src/Entry.js
@@ -0,0 +1,7 @@
+'use strict';
+
+exports.hot = function() {
+  if (module.hot) {
+    module.hot.accept();
+  }
+}
diff --git a/src/Entry.purs b/src/Entry.purs
@@ -1,9 +1,19 @@
 module Entry (module Entry) where
 
+import Prelude (Unit)
+
+import Control.Monad.Eff (Eff)
+import Control.Monad.Eff.Unsafe (unsafePerformEff)
+
 import Prelude ((<>)) as Entry
 
 import Example.Test (testing) as Entry
 
 import Example.Foo (bar, foo, foot, jaz, meter) as Entry
 
 import Example.Foo.Baz (baz) as Entry
+
+foreign import hot :: forall eff. Eff eff Unit
+
+result :: Unit
+result = unsafePerformEff hot

Original file line number	Diff line number	Diff line change
`@@ -2,6 +2,7 @@`
`2`	`2`	`"name": "purescript-webpack-example",`
`3`	`3`	`"private": true,`
`4`	`4`	`"dependencies": {`
`5`		`- "purescript-prelude": "^2.1.0"`
	`5`	`+ "purescript-prelude": "^2.1.0",`
	`6`	`+ "purescript-eff": "^2.0.0"`
`6`	`7`	`}`
`7`	`8`	`}`