haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove Coffeescript types - now just Javascript

Browse Source
This commit is contained in:
Greg Weber 2012-02-01 22:37:43 -06:00
parent 704892bdda
commit 55ee566a1c
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
yesod-core/Yesod/Widget.hs
View File

@ -46,8 +46,6 @@ module Yesod.Widget
-- ** Javascript -- ** Javascript
, addJulius , addJulius
, addJuliusBody , addJuliusBody
, addCoffee
, addCoffeeBody
, addScript , addScript
, addScriptAttrs , addScriptAttrs
, addScriptRemote , addScriptRemote
@ -62,7 +60,6 @@ import qualified Text.Blaze.Html5 as H
import Text.Hamlet import Text.Hamlet
import Text.Cassius import Text.Cassius
import Text.Julius import Text.Julius
import Text.Coffee
import Yesod.Routes.Class import Yesod.Routes.Class
import Yesod.Handler import Yesod.Handler
( GHandler, YesodSubRoute(..), toMasterHandlerMaybe, getYesod ( GHandler, YesodSubRoute(..), toMasterHandlerMaybe, getYesod
@ -126,8 +123,6 @@ instance ToWidget sub master (GWidget sub master ()) where
toWidget = id toWidget = id
instance ToWidget sub master Html where instance ToWidget sub master Html where
toWidget = addHtml toWidget = addHtml
instance render ~ RY master => ToWidget sub master (render -> Coffeescript) where
toWidget = addCoffee
class ToWidgetBody sub master a where class ToWidgetBody sub master a where
toWidgetBody :: a -> GWidget sub master () toWidgetBody :: a -> GWidget sub master ()
@ -138,8 +133,6 @@ instance render ~ RY master => ToWidgetBody sub master (render -> Javascript) wh
toWidgetBody = addJuliusBody toWidgetBody = addJuliusBody
instance ToWidgetBody sub master Html where instance ToWidgetBody sub master Html where
toWidgetBody = addHtml toWidgetBody = addHtml
instance render ~ RY master => ToWidgetBody sub master (render -> Coffeescript) where
toWidgetBody = addCoffeeBody
class ToWidgetHead sub master a where class ToWidgetHead sub master a where
toWidgetHead :: a -> GWidget sub master () toWidgetHead :: a -> GWidget sub master ()
@ -152,8 +145,6 @@ instance render ~ RY master => ToWidgetHead sub master (render -> Javascript) wh
toWidgetHead = addJulius toWidgetHead = addJulius
instance ToWidgetHead sub master Html where instance ToWidgetHead sub master Html where
toWidgetHead = addHtmlHead toWidgetHead = addHtmlHead
instance render ~ RY master => ToWidgetHead sub master (render -> Coffeescript) where
toWidgetHead = addCoffee
-- | Set the page title. Calling 'setTitle' multiple times overrides previously -- | Set the page title. Calling 'setTitle' multiple times overrides previously
-- set values. -- set values.
@ -251,20 +242,6 @@ addJulius x = tell $ GWData mempty mempty mempty mempty mempty (Just x) mempty
addJuliusBody :: JavascriptUrl (Route master) -> GWidget sub master () addJuliusBody :: JavascriptUrl (Route master) -> GWidget sub master ()
addJuliusBody j = addHamlet $ \r -> H.script $ preEscapedLazyText $ renderJavascriptUrl r j addJuliusBody j = addHamlet $ \r -> H.script $ preEscapedLazyText $ renderJavascriptUrl r j
-- | Add Coffesscript to the page's script tag. Requires the coffeescript
-- executable to be present at runtime.
addCoffee :: CoffeeUrl (Route master) -> GWidget sub master ()
addCoffee c = do
render <- lift getUrlRenderParams
addJulius $ const $ Javascript $ fromLazyText $ renderCoffeeUrl render c
-- | Add a new script tag to the body with the contents of this Coffesscript
-- template. Requires the coffeescript executable to be present at runtime.
addCoffeeBody :: CoffeeUrl (Route master) -> GWidget sub master ()
addCoffeeBody c = do
render <- lift getUrlRenderParams
addJuliusBody $ const $ Javascript $ fromLazyText $ renderCoffeeUrl render c
-- | Content for a web page. By providing this datatype, we can easily create -- | Content for a web page. By providing this datatype, we can easily create
-- generic site templates, which would have the type signature: -- generic site templates, which would have the type signature:
-- --