module Data.DOM.Counter
       (get'identifier, getm'identifier, get'listStyle, getm'listStyle,
        get'separator, getm'separator)
       where
import Data.DOM.Css
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Views
import Data.DOM.Stylesheets
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
get'identifier ::
               (Monad mn, CCounter this) =>
                 Expression this -> mn (Expression String)
get'identifier thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "identifier")
       return r
 
getm'identifier ::
                (Monad mn, CCounter this) =>
                  Expression this -> mn (Expression String)
getm'identifier = get'identifier
 
get'listStyle ::
              (Monad mn, CCounter this) =>
                Expression this -> mn (Expression String)
get'listStyle thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "listStyle")
       return r
 
getm'listStyle ::
               (Monad mn, CCounter this) =>
                 Expression this -> mn (Expression String)
getm'listStyle = get'listStyle
 
get'separator ::
              (Monad mn, CCounter this) =>
                Expression this -> mn (Expression String)
get'separator thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "separator")
       return r
 
getm'separator ::
               (Monad mn, CCounter this) =>
                 Expression this -> mn (Expression String)
getm'separator = get'separator