fake perch-hplaygroud sample definitions

fake.hs

#ifndef ghcjs_HOST_OS
static= id
dynamic= id
strip= id
inputInt :: Maybe Int -> TransIO Int
inputInt _ = empty

inputSubmit :: String -> TransIO String
inputSubmit _= empty

fire ::   TransIO a -> event -> TransIO a
fire _ _ = empty
data OnKeyUp= OnKeyUp
data OnClick= OnClick
data OnMouseOver= OnMouseOver
h1 _ = undefined
p= undefined
b = undefined
h2 _ = undefined

data Perch a= Perch a
instance Applicative Perch
instance Functor Perch
instance Monad Perch

wraw :: Perch () -> TransIO ()
wraw = undefined
(<++) _ _= undefined
(++>) _ _= undefined
(<<<) _ _= undefined
(!)= undefined
toJSString = undefined
br= undefined
noWidget= undefined
toElem= undefined

wlink= undefined

getCheckBoxes= undefined

setCheckBox= undefined



getRadio= undefined

setRadioActive= undefined

getSelect= undefined

setOption= undefined

#endif