module Clckwrks.JS.Route where

import Control.Applicative     ((<$>))
import Clckwrks.Monad          (ClckT)
import Clckwrks.JS.ClckwrksApp (clckwrksAppJS)
import Clckwrks.JS.URL
import Happstack.Server        (Happstack, Response, ok, toResponse)
import Happstack.Server.JMacro ()

routeJS :: (Happstack m) => Bool -> JSURL -> ClckT u m Response
routeJS :: Bool -> JSURL -> ClckT u m Response
routeJS Bool
enableOpenId JSURL
url =
  case JSURL
url of
    JSURL
ClckwrksApp -> Response -> ClckT u m Response
forall (m :: * -> *) a. FilterMonad Response m => a -> m a
ok (Response -> ClckT u m Response) -> Response -> ClckT u m Response
forall a b. (a -> b) -> a -> b
$ JStat -> Response
forall a. ToMessage a => a -> Response
toResponse (JStat -> Response) -> JStat -> Response
forall a b. (a -> b) -> a -> b
$ Bool -> JStat
clckwrksAppJS Bool
enableOpenId