renderDecs :: [Dec] -> DocM Html
renderDecs decs = asks snd >>= f
  where f fm = (H.div ! A.class_ "decs") . mconcat <$>
               mapM (fmap $ H.div ! A.class_ "dec") (mapMaybe (prettyDec fm) decs)
renderDecs :: [Dec] -> DocM Html
renderDecs decs = asks snd >>= f
  where f fm = (H.div ! A.class_ "decs") . mconcat <$>
               mapM (fmap $ H.div ! A.class_ "dec") (mapMaybe (prettyDec fm) decs)
renderDecs decs = asks snd >>= f
  where f fm = (H.div ! A.class_ "decs") . mconcat <$>
               mapM (fmap $ H.div ! A.class_ "dec") (mapMaybe (prettyDec fm) decs)