From 3a1bc37b45f0abcaef341dec8f43f8e9abf663bc Mon Sep 17 00:00:00 2001
From: James Brechtel <git@jamesbrechtel.com>
Date: Tue, 19 May 2026 15:27:39 -0400
Subject: [PATCH] Formats repo

---
 src/Roux/Html.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Roux/Html.hs b/src/Roux/Html.hs
index ffaaa67..54968eb 100644
--- a/src/Roux/Html.hs
+++ b/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