nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

loading script only when needed

Browse source
This commit is contained in:
nek0 2017-02-12 11:58:54 +01:00
parent db8e561704
commit 3a53ab0f24
3 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Foundation.hs
View file

@ -130,7 +130,7 @@ instance Yesod App where
] ]
mapM_ addScript $ map StaticR mapM_ addScript $ map StaticR
[ js_crementing_js [ js_crementing_js
, js_barcode_js -- , js_barcode_js
] ]
$(widgetFile "default-layout") $(widgetFile "default-layout")
withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet") withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")

6
Handler/Home.hs
View file

@ -31,14 +31,16 @@ getHomeR = do
beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent] beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
today <- liftIO $ utctDay <$> getCurrentTime today <- liftIO $ utctDay <$> getCurrentTime
users <- runDB $ selectList [UserTimestamp >=. addDays (-30) today] [Asc UserIdent] users <- runDB $ selectList [UserTimestamp >=. addDays (-30) today] [Asc UserIdent]
defaultLayout $ defaultLayout $ do
addScript $ StaticR js_barcode_js
$(widgetFile "home") $(widgetFile "home")
getReactivateR :: Handler Html getReactivateR :: Handler Html
getReactivateR = do getReactivateR = do
today <- liftIO $ return . utctDay =<< getCurrentTime today <- liftIO $ return . utctDay =<< getCurrentTime
users <- runDB $ selectList [UserTimestamp <. addDays (-30) today] [Asc UserIdent] users <- runDB $ selectList [UserTimestamp <. addDays (-30) today] [Asc UserIdent]
defaultLayout $ defaultLayout $ do
addScript $ StaticR js_barcode_js
$(widgetFile "reactivate") $(widgetFile "reactivate")
getUserReactivateR :: UserId -> Handler Html getUserReactivateR :: UserId -> Handler Html

6
Handler/Select.hs
View file

@ -25,14 +25,16 @@ getSelectR uId =
isUser uId HomeR >>= (\user -> do isUser uId HomeR >>= (\user -> do
master <- getYesod master <- getYesod
beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent] beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent]
defaultLayout $ defaultLayout $ do
addScript $ StaticR js_barcode_js
$(widgetFile "select") $(widgetFile "select")
) )
getSelectCashR :: Handler Html getSelectCashR :: Handler Html
getSelectCashR = do getSelectCashR = do
beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent] beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent]
defaultLayout $ defaultLayout $ do
addScript $ StaticR js_barcode_js
$(widgetFile "selectCash") $(widgetFile "selectCash")
getRechargeR :: UserId -> Handler Html getRechargeR :: UserId -> Handler Html