lebd/src/Widget/Entry.hs

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")