46 lines
1.5 KiB
Haskell
46 lines
1.5 KiB
Haskell
module Handler.Home where
|
|
|
|
import Import
|
|
import qualified Text.Read as R
|
|
|
|
-- This is a handler function for the GET request method on the HomeR
|
|
-- resource pattern. All of your resource patterns are defined in
|
|
-- config/routes
|
|
--
|
|
-- The majority of the code you will write in Yesod lives in these handler
|
|
-- functions. You can spread them across multiple files if you are so
|
|
-- inclined, or create a single monolithic file.
|
|
getHomeR :: Handler Html
|
|
getHomeR = do
|
|
beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
|
|
time <- liftIO getCurrentTime
|
|
secs <- return $ (R.read $ formatTime defaultTimeLocale "%s" time) - 8640000
|
|
users <- runDB $ selectList [UserTimestamp >=. secs] [Asc UserIdent]
|
|
defaultLayout $ do
|
|
$(widgetFile "home")
|
|
|
|
postHomeR :: Handler Html
|
|
postHomeR = do
|
|
error "Not yet implemented"
|
|
|
|
getReactivateR :: Handler Html
|
|
getReactivateR = do
|
|
time <- liftIO getCurrentTime
|
|
secs <- return $ (R.read $ formatTime defaultTimeLocale "%s" time) - 8640000
|
|
users <- runDB $ selectList [UserTimestamp <. secs] [Asc UserIdent]
|
|
defaultLayout $ do
|
|
$(widgetFile "reactivate")
|
|
|
|
getUserReactivateR :: UserId -> Handler Html
|
|
getUserReactivateR uId = do
|
|
mUser <- runDB $ get uId
|
|
case mUser of
|
|
Just user -> do
|
|
time <- liftIO getCurrentTime
|
|
secs <- return $ R.read $ formatTime defaultTimeLocale "%s" time
|
|
runDB $ update uId [UserTimestamp =. secs]
|
|
setMessageI MsgUserReactivated
|
|
redirect $ HomeR
|
|
Nothing -> do
|
|
setMessageI MsgUserUnknown
|
|
redirect $ HomeR
|