Server setup for behaviors (#84)

Author: paf31

.gitignore

@@ -1,3 +1,4 @@
+.psc-ide-port
 .pulp-cache/
 .psci_modules/
 .stack-work/

staging/behaviors/psc-package.json

@@ -0,0 +1,10 @@
+{
+    "name": "trybehaviors",
+    "set": "master",
+    "source": "https://github.com/purescript/package-sets.git",
+    "depends": [
+        "drawing",
+        "behaviors",
+        "prelude"
+    ]
+}

staging/behaviors/src/FRP/Try.purs

@@ -0,0 +1,17 @@
+module FRP.Try (defaultMain) where
+
+import Prelude
+
+import Control.Monad.Eff (Eff)
+import Data.Foldable (for_)
+import FRP (FRP)
+import FRP.Behavior (Behavior, animate)
+import Graphics.Canvas (CANVAS, getCanvasElementById, getContext2D)
+import Graphics.Drawing (Drawing, render)
+
+defaultMain :: Behavior Drawing -> Eff (canvas :: CANVAS, frp :: FRP) Unit
+defaultMain b = do
+  canvas <- getCanvasElementById "canvas"
+  for_ canvas \c -> do
+    ctx <- getContext2D c
+    animate b (render ctx)