Initial reflex-0.4 version

Author: qrilka

.gitignore

@@ -0,0 +1 @@
+.stack-work

LICENSE

@@ -0,0 +1,19 @@
+Copyright (c) 2012 Kirill Zaborsky
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
+of the Software, and to permit persons to whom the Software is furnished to do
+so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

Makefile

@@ -0,0 +1,7 @@
+LOCAL_ROOT=$(shell stack path --local-install-root)
+
+build:
+	stack build
+
+open: build
+	xdg-open $(LOCAL_ROOT)/bin/reflex-huge-table.jsexe/index.html

reflex-huge-table.cabal

@@ -0,0 +1,24 @@
+name:                reflex-huge-table
+version:             0.1.0.0
+synopsis:            test app
+description:         testing reflex
+homepage:            http://github.com/qrilka/reflex-huge-table
+license:             MIT
+license-file:        LICENSE
+author:              Kirill Zaborsky
+maintainer:          qrilka@gmail.com
+category:            Web
+build-type:          Simple
+cabal-version:       >=1.10
+
+executable reflex-huge-table
+  hs-source-dirs:      src
+  main-is:             Main.hs
+  default-language:    Haskell2010
+  ghc-options:         -Wall -Werror -dedupe
+
+  build-depends:       base
+                     , reflex
+                     , reflex-dom
+                     , string-class
+                     , text

src/Main.hs

@@ -0,0 +1,33 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+module Main where
+
+import Control.Monad
+import Data.String.Class
+import Data.Text (Text)
+import Reflex
+import Reflex.Dom
+
+main :: IO ()
+main =
+  mainWidget $ do
+    clicked <- button "Go"
+    void . widgetHold blank $ ffor clicked $ \_ -> do
+      let colNames = ["a","b","c","d"]
+      elClass "table" "table" $ do
+        el "thead" . el "tr" $ forM_ colNames $ \n ->
+            el "th" (text n)
+        el "tbody" . forM_ table $ \Entry{..} -> do
+          let cells = [toString a, toString b, show c, show d]
+          el "tr" . forM_ cells $ \cell -> do
+                el "td" (text cell)
+
+data Entry = Entry
+  { a :: Text
+  , b :: Text
+  , c :: Double
+  , d :: Int
+  }
+
+table :: [Entry]
+table = replicate 1000 Entry {a = "Some", b = "Text here", c = 1.23, d = 424242}

stack.yaml

@@ -0,0 +1,24 @@
+resolver: lts-7.3
+compiler: ghcjs-0.2.1.9007003_ghc-8.0.1
+
+setup-info:
+  ghcjs:
+    source:
+      ghcjs-0.2.1.9007003_ghc-8.0.1:
+          url: http://ghcjs.tolysz.org/ghc-8.0-2016-10-11-lts-7.3-9007003.tar.gz
+          sha1: 3196fd5eaed670416083cf3678396d02c50096de
+
+packages:
+- '.'
+- location:
+    git: git@github.com:reflex-frp/reflex.git
+    commit: 312b1905557671ae223813e7430ab07d2b65d0f7
+- location:
+    git: git@github.com:qrilka/reflex-dom.git
+    commit: ad83d0b6b1e3388713f8ae31a8efd2542ea372f9
+
+extra-deps:
+- ghcjs-dom-0.2.4.0
+- ref-tf-0.4.0.1
+- data-default-0.6.0
+- data-default-instances-base-0.1.0.1