diff --git a/src/Roux/Html.hs b/src/Roux/Html.hs
index 3ed83d6..0572c52 100644
--- a/src/Roux/Html.hs
+++ b/src/Roux/Html.hs
@@ -60,8 +60,6 @@ newtype ImportError = ImportError Text
-- Helpers used throughout
-- ---------------------------------------------------------------------------
-
-
{- | Format a quantity for display.
| Format a quantity for natural display (e.g. @4 cups@, @1/2 tsp@).
-}
@@ -887,13 +885,10 @@ recipePage info entries =
H.script ! A.type_ "text/javascript" $ H.preEscapedText titleEditJs
H.script ! A.type_ "text/javascript" $ H.preEscapedText cookLogJs
-
-
-- | Format a Day as "Mon DD" e.g. "Mar 15".
formatDay :: Day -> Text
formatDay = T.pack . Time.formatTime Time.defaultTimeLocale "%b %e"
-
-- | Recipe page CSS matching the roux-recipe-mockup.html layout.
recipePageStyles :: Text
recipePageStyles =
@@ -1017,7 +1012,8 @@ renderRecipe filename recipe entries = do
-- Tags
let tags = metaTags meta
unless (null tags) $
- H.div ! A.class_ "rp-tags" $ mapM_ (\t -> H.span ! A.class_ "rp-tag" $ H.toHtml t) tags
+ H.div ! A.class_ "rp-tags" $
+ mapM_ (\t -> H.span ! A.class_ "rp-tag" $ H.toHtml t) tags
-- Record meal modal (unchanged)
H.div ! A.id "roux-record-modal" ! A.style "display: none;" $ do
H.div ! A.class_ "roux-modal-backdrop" ! A.id "roux-modal-backdrop" $ ""
@@ -1238,7 +1234,6 @@ renderStepItem (StepComment t) =
renderStepItem StepBreak =
H.br
-
-- ---------------------------------------------------------------------------
-- URL encoding
-- ---------------------------------------------------------------------------