{-# LANGUAGE
    OverloadedStrings
  , ExtendedDefaultRules
  , FlexibleContexts
  #-}

module Pages.Home where

import Application.Types

import Data.Url
import Path.Extended
import Lucid

import Control.Monad.Trans


homePage :: ( MonadApp m
            ) => HtmlT m ()
homePage = do
  contactsLoc <- lift $ toLocation AppContacts
  contacts <- lift $ locUrl contactsLoc

  p_ [] "woo"
