battleships-1.0.0: Handler/Home.hs

----------------------------------------------------------------------------
-- |
-- Module      :  Handler.Home
-- Stability   :  experimental
-- Portability :  non-portable
--
-- Handler for a static home page.

module Handler.Home
  ( getHomeR
  ) where

import Import
import Handler.Util

getHomeR :: Handler Html
getHomeR = do
  extra <- getExtra
  let defaultOptions = extraOptions extra
  defaultLayout $ do
    setNormalTitle
    $(widgetFile "home")