11 lines
329 B
Haskell
11 lines
329 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
module Widget.Entry ( hEntry ) where
|
|
|
|
import Import
|
|
|
|
hEntry :: Entity Entry -> Widget
|
|
hEntry (Entity entryId entry) = do
|
|
maybeAuthor <- handlerToWidget . runDB . get . entryAuthorId $ entry
|
|
$(widgetFile "mf2/h-entry")
|