lebd/src/Handler/Home.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
module Handler.Home where

import Import
import Widget.Hcard (hcard)

getHomeR :: Handler Html
getHomeR = do
    user <- runDB . getBy404 $ UniqueUsername "dani"
    defaultLayout $(widgetFile "home")