ali-abrar

import Reflex.Dom

main :: IO ()
main = mainWidget $ el "div" $ display =<< count =<< button "Click Me!"

-- Cf: https://github.com/ghcjs/ghcjs-examples/blob/master/weblog/counter/counter.hs

ali-abrar

-- http://stackoverflow.com/questions/30885883/why-does-this-reflex-code-result-in-dynamics-firing-indefinitely-with-the-same-v
{-# LANGUAGE RecursiveDo, ScopedTypeVariables #-}

import Reflex
import Reflex.Dom

import qualified Data.Map as Map

dynButton
  :: MonadWidget t m

ali-abrar

{-# LANGUAGE ScopedTypeVariables, RecursiveDo #-}
import Control.Monad
import Reflex.Dom
import qualified Data.Map as Map
import Data.Map (Map)

main :: IO ()
main = mainWidget test

test :: MonadWidget t m => m ()

ali-abrar

{-# LANGUAGE RecursiveDo #-}
import Reflex
import Reflex.Dom
import qualified Data.Map as Map
import Safe (readMay)
import Control.Applicative ((<*>), (<$>))

main = mainWidget $ el "div" $ do
  nx <- numberInput
  d <- dropdown "*" (constDyn ops) def

ali-abrar

{-# LANGUAGE RecursiveDo #-}

import Reflex.Dom

main :: IO ()
main = mainWidget $ el "div" $ do
  rec _ <- dynText $ _textInput_value t
      t <- textInput def
  return ()

ali-abrar

import Reflex.Dom
import GHCJS.DOM.Window (getLocalStorage)
import GHCJS.DOM.Storage (setItem, getItem)
import Control.Monad.IO.Class
import Data.JSString (unpack)

main :: IO ()
main = mainWidget localStorageTest

localStorageTest :: MonadWidget t m => m ()

ali-abrar

{-# LANGUAGE JavaScriptFFI #-}

import Reflex.Dom
import qualified Data.Text as T
import Data.Monoid
import GHCJS.Types
import GHCJS.Foreign
import Control.Monad.IO.Class
import Control.Monad
import Data.Maybe

ali-abrar

{-# LANGUAGE ScopedTypeVariables #-}
import Reflex.Dom
import GHCJS.DOM.CanvasRenderingContext2D (putImageData, setFillStyle, fillRect)
import GHCJS.DOM.HTMLCanvasElement (getContext)
import GHCJS.DOM.ImageData (newImageData')
import Control.Monad.IO.Class (liftIO)
import GHCJS.DOM.Types (CanvasStyle(..), CanvasRenderingContext2D(..), toJSString, castToHTMLCanvasElement)
import GHCJS.Marshal (toJSVal)
import Data.Time (getCurrentTime)

ali-abrar

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections #-}
import Control.Arrow ((&&&))
import Control.Monad.IO.Class (liftIO)
import qualified Data.Map as Map
import Data.Text (Text)
import qualified Data.Text as T
import Reflex.Dom

main :: IO ()

ali-abrar

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections #-}
import Control.Arrow ((&&&))
import Control.Monad.IO.Class (liftIO)
import qualified Data.Map as Map
import Data.Text (Text)
import qualified Data.Text as T
import Reflex.Dom

main :: IO ()