module Handler.Home where

import Data.Maybe
import Import
import qualified Prelude
import qualified Util.Formatting as F
import qualified Util.Meetup as M

getHomeR :: Handler Html
getHomeR = do
    event <- liftIO $ do
        settings <- M.readSettings "config/meetup.yml"
        events <- M.fetchEvents $ fromJust settings
        return $ Prelude.head events
    defaultLayout $ do
        aDomId <- newIdent
        $(widgetFile "homepage")


module Handler.Home where

import Data.Maybe
import Import
import qualified Prelude
import qualified Util.Formatting as F
import qualified Util.Meetup as M

getHomeR :: Handler Html
getHomeR = do
    event <- liftIO $ do
        settings <- M.readSettings "config/meetup.yml"
        events <- M.fetchEvents $ fromJust settings
        return $ Prelude.head events
    defaultLayout $ do
        aDomId <- newIdent
        setTitle "SeaHUG"
        $(widgetFile "homepage")


Set title on home page
Set title on home page
