yesod-angular-ui 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+32/−9 lines, 2 files

Files

• src/Yesod/AngularUI.hs +31/−8
• yesod-angular-ui.cabal +1/−1

@@ -43,7 +43,9 @@     , addRESTRaw    -- placeholders for some generic rest api/ maybe a subsite?     , tcFile+    , utcFile     , tcVFile+    , utcVFile     , state     , url     , name@@ -304,6 +306,35 @@ emptyFunction :: JavascriptUrl url emptyFunction = [julius| function(){} |] +liftT :: Text -> Q Exp+liftT t = do+  p <- [|T.pack|]+  return $ AppE p $ LitE $ StringL $ T.unpack t++utcFile :: Text -> Text -> Q Exp+utcFile u st =+   [|tell mempty { uisName = First (Just $(liftT st))+            , uisUrl  = Just $(liftT u)+            , uiTC    = UiTC+                      (TmplExt $(autoHamlet st ""))+                      (CtrlExt $(fromMaybe [| emptyFunction |] $ autoJulius st ""))+                      $(listE $ catMaybes [autoLucius st "", autoCassius st ""])+            }|]++utcVFile :: Text -> Text -> Text -> Q Exp+utcVFile u st view =+   [|tell mempty+      { uisName = First (Just $(liftT st))+      , uisUrl  = Just $(liftT u)+      , uiV = [ ( $(liftT view)+                , UiTC+                    (TmplExt $(autoHamlet st view))+                    (CtrlExt $(fromMaybe [| emptyFunction |] $ autoJulius st view))+                    $(listE $ catMaybes [autoLucius st view, autoCassius st view])+                )+              ]+      }|]+ tcFile :: Text -> Q Exp tcFile st =    [|tell mempty { uisName = First (Just $(liftT st))@@ -312,10 +343,6 @@                       (CtrlExt $(fromMaybe [| emptyFunction |] $ autoJulius st ""))                       $(listE $ catMaybes [autoLucius st "", autoCassius st ""])             }|]-  where-    liftT t = do-        p <- [|T.pack|]-        return $ AppE p $ LitE $ StringL $ T.unpack t  tcVFile :: Text -> Text -> Q Exp tcVFile st view =@@ -329,10 +356,6 @@                 )               ]       }|]-  where-    liftT t = do-        p <- [|T.pack|]-        return $ AppE p $ LitE $ StringL $ T.unpack t  state   :: ( Monad m

@@ -1,5 +1,5 @@ name:                yesod-angular-ui-version:             0.1.0.0+version:             0.1.0.1 synopsis:            Angular Helpers description:         Library for developing i18n webapps with yesod and angular. homepage:            https://github.com/tolysz/yesod-angular-ui