{-# LANGUAGE EmptyDataDecls    #-}
{-# OPTIONS -Wall -fno-warn-name-shadowing -fno-warn-unused-do-bind #-}

module Index where

import FFI
import Prelude

-- Import Logikujo.SharedTypes

-- | Fay Only Modules
import Dom
import JQuery

data Carousel = Next

void :: Fay f -> Fay ()
void f = f >> return ()

-- >>= :: m a -> (a -> m b) -> m b
(=<<) :: (a -> Fay b) -> Fay a -> Fay b
(=<<) = flip (>>=)

alert :: String -> Fay ()
alert = ffi "alert(%1)"

carousel :: JQuery -> Fay ()
carousel = ffi "%1['carousel']()"


onLoad :: Fay ()
onLoad = void $ do
  e <- selectad ".carousel"
  carousel e

carouselOnLoad = select ".carousel" >>= carousel

main :: Fay ()
main = mapM_ addOnload [carouselOnLoad]