CookieIncrements.purs

module Main where

import Prelude (Unit, bind, unit, (+))
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE)
import Data.Maybe (Maybe(..))
import Data.Int (fromString)
import Web.Cookies (COOKIE, getCookie, setCookie)

main :: forall eff. Eff (console :: CONSOLE, cookie :: COOKIE | eff) Unit
main = do
  ck <- getCookie "_bnn" 
  case ck of Just v -> case fromString v of Just n -> setCookie "_bnn" (n+1) unit
                                            Nothing -> setCookie "_bnn" 1 unit
             Nothing -> setCookie "_bnn" 1 unit