serve_java.lhs

Serve javascript

> newtype RepJavascript = RepJavascript Content
> instance ToTypedContent RepJavascript where
>   toTypedContent (RepJavascript c) = TypedContent typeJavascript c
> instance HasContentType RepJavascript where
>   getContentType _ = typeJavascript
> deriving instance ToContent RepJavascript
> deriving instance ToContent Javascript where
>    toContent = toContent . renderJavascript
>
> juliusToRepJavascript j =  do
>   render <- getUrlRenderParams
>   return $ toTypedContent $ RepJavascript (toContent $ j render)

> sendJavascriptFromAction :: Action -> Handler TypedContent
> sendJavascriptFromAction action = do
>   juliusToRepJavascript $(juliusFile "templates/action.julius")