yesod-angular-ui 0.1.0.1 → 0.1.1.0
raw patch · 2 files changed
+15/−3 lines, 2 filesdep ~base
Dependency ranges changed: base
Files
- src/Yesod/AngularUI.hs +14/−2
- yesod-angular-ui.cabal +1/−1
src/Yesod/AngularUI.hs view
@@ -25,6 +25,7 @@ , addConfig , addConfigRaw , addService+ , addRun , addFactoryStore -- ^ naive persistent store@@ -33,6 +34,7 @@ , addProvide , addFilter , addConstant+ , addValue -- some normal stuff , addSetup -- ^ before the code, maybe some imports?@@ -155,6 +157,13 @@ #{rawJS n}.^{funcall}; }])|] } +addRun :: (Monad m) => ((Route master -> [(Text, Text)] -> Text) -> Javascript)+ -> GAngular master m ()+addRun funcall =+ tell mempty+ { awConfigs = [julius|.run(^{funcall})|]+ }+ addConfigRaw :: (Monad m) => ((Route master -> [(Text, Text)] -> Text) -> Javascript) -> GAngular master m () addConfigRaw funcall = tell mempty { awConfigs = [julius|.config(^{funcall})|] }@@ -231,6 +240,11 @@ -- ^ add constant, remember to quote if raw text addConstant n funcall = addProvide [julius|constant("#{rawJS n}",^{funcall})|] ++addValue :: (Monad m) => Text -> ((Route master -> [(Text, Text)] -> Text) -> Javascript) -> GAngular master m ()+-- ^ add constant, remember to quote if raw text+addValue n funcall = addProvide [julius|value("#{rawJS n}",^{funcall})|]+ addSetup :: (Monad m) => ((Route master -> [(Text, Text)] -> Text) -> Javascript) -> GAngular master m () -- ^ inject this code befor calling angular@@ -284,8 +298,6 @@ } } |]-- url :: Monad m => Text -> WriterT (UiState master) m () url u = tell mempty {uisUrl = Just u}
yesod-angular-ui.cabal view
@@ -1,5 +1,5 @@ name: yesod-angular-ui-version: 0.1.0.1+version: 0.1.1.0 synopsis: Angular Helpers description: Library for developing i18n webapps with yesod and angular. homepage: https://github.com/tolysz/yesod-angular-ui