purview 0.2.0.0 → 0.2.0.1
raw patch · 2 files changed
+14/−14 lines, 2 filesdep ~bytestringdep ~hspecdep ~text
Dependency ranges changed: bytestring, hspec, text, time
Files
- purview.cabal +9/−9
- src/Purview.hs +5/−5
purview.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: purview-version: 0.2.0.0+version: 0.2.0.1 synopsis: A simple, fun way to build websites description: A simple, fun way to build websites with Haskell. .@@ -63,12 +63,12 @@ aeson >=1.5.6 && <2.3 , base >=4.7 && <5 , blaze-builder >=0.4.2 && <0.5- , bytestring >=0.10.12.0 && <0.12+ , bytestring >=0.10.12.0 && <0.13 , http-types >=0.12.3 && <0.13 , raw-strings-qq ==1.1.* , stm >=2.5.0 && <2.6 , template-haskell >=2.15.0 && <2.21- , text >=1.2.4.1 && <2.1+ , text >=1.2.4.1 && <2.2 , wai >=3.2.0 && <3.3 , wai-websockets >=3.0.1 && <3.1 , warp >=3.3.0 && <3.4@@ -115,15 +115,15 @@ , aeson >=1.5.6 && <2.3 , base >=4.7 && <5 , blaze-builder >=0.4.2 && <0.5- , bytestring >=0.10.12.0 && <0.12- , hspec >=2.7.10 && <2.10+ , bytestring >=0.10.12.0 && <0.13+ , hspec >=2.7.10 && <2.12 , http-types >=0.12.3 && <0.13 , purview , raw-strings-qq ==1.1.* , stm >=2.5.0 && <2.6 , template-haskell >=2.15.0 && <2.21- , text >=1.2.4.1 && <2.1- , time >=1.9.3 && <1.12+ , text >=1.2.4.1 && <2.2+ , time >=1.9.3 && <1.14 , wai >=3.2.0 && <3.3 , wai-websockets >=3.0.1 && <3.1 , warp >=3.3.0 && <3.4@@ -142,14 +142,14 @@ aeson >=1.5.6 && <2.3 , base >=4.7 && <5 , blaze-builder >=0.4.2 && <0.5- , bytestring >=0.10.12.0 && <0.12+ , bytestring >=0.10.12.0 && <0.13 , criterion >=1.5.13 && <1.6 , http-types >=0.12.3 && <0.13 , purview , raw-strings-qq ==1.1.* , stm >=2.5.0 && <2.6 , template-haskell >=2.15.0 && <2.21- , text >=1.2.4.1 && <2.1+ , text >=1.2.4.1 && <2.2 , wai >=3.2.0 && <3.3 , wai-websockets >=3.0.1 && <3.1 , warp >=3.3.0 && <3.4
src/Purview.hs view
@@ -10,7 +10,7 @@ Here's a quick example with a counter: > module Main where->+> import Prelude hiding (div) > import Purview > import Purview.Server (serve, defaultConfiguration) >@@ -23,16 +23,16 @@ > , decrementButton > ] >-> handler :: (Integer -> Purview event m) -> Purview event m-> handler = handler' [] (0 :: Integer) reducer+> countHandler :: (Integer -> Purview String m) -> Purview () m+> countHandler = handler' [] (0 :: Integer) reducer > > reducer event state = case event of > "increment" -> (state + 1, []) > "decrement" -> (state - 1, []) >-> component' = handler view+> component' _ = countHandler view >-> main = serve defaultConfiguration { component=component', devMode=True }+> main = serve defaultConfiguration { devMode=True } component' Note the "devMode=True": this tells Purview to send the whole tree over again when the websocket reconnects. This is handy