_partial :: TagList -> FileDB -> Page -> Params -> H.Html
_partial _ _ p _ = H.div ! A.class_ (fromString "taglist") $
    forM_ (tags p) ((H.div ! tagClass) . H.toHtml)
_partial :: TagList -> FileDB -> Page -> Params -> H.Html
_partial _ _ p _ = H.div ! A.class_ (fromString "taglist") $
    forM_ (tags p) ((H.div ! tagClass) . H.toHtml)
_partial _ _ p _ = H.div ! A.class_ (fromString "taglist") $
    forM_ (tags p) ((H.div ! tagClass) . H.toHtml)