Formats repo

src/Roux/Html.hs

@@ -51,8 +51,9 @@ pairWith :: a -> Maybe b -> Maybe (a, b)
 pairWith _ Nothing = Nothing
 pairWith a (Just b) = Just (a, b)
 
--- | Format a quantity for display.
--- | Format a quantity for natural display (e.g. @4 cups@, @1/2 tsp@).
+{- | Format a quantity for display.
+| Format a quantity for natural display (e.g. @4 cups@, @1/2 tsp@).
+-}
 showQuantity :: Quantity -> Text
 showQuantity q =
     let amt = quantityAmount q