jbrechtel/roux
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Formats repo

Browse Source
This commit is contained in:
James Brechtel
2026-05-19 15:27:39 -04:00
parent f902ec65b9
commit 3a1bc37b45
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Roux/Html.hs
+3 -2
View File
@@ -51,8 +51,9 @@ pairWith :: a -> Maybe b -> Maybe (a, b)
pairWith _ Nothing = Nothing pairWith _ Nothing = Nothing
pairWith a (Just b) = Just (a, b) pairWith a (Just b) = Just (a, b)
-- | Format a quantity for display. {- | Format a quantity for display.
-- | Format a quantity for natural display (e.g. @4 cups@, @1/2 tsp@). | Format a quantity for natural display (e.g. @4 cups@, @1/2 tsp@).
-}
showQuantity :: Quantity -> Text showQuantity :: Quantity -> Text
showQuantity q = showQuantity q =
let amt = quantityAmount q let amt = quantityAmount q