chore: enable GHC NumericUnderscores language extension

The `_` character between numeric literals improve their readablity. Signed-off-by: Taimoor Zaeem <taimoorzaeem@gmail.com>
2026-06-28 01:01:12 +05:00
parent 84e2a0c829
commit 18646a6c03
7 changed files with 9 additions and 6 deletions
@@ -250,7 +250,7 @@ planCost :: SResponse -> Float
 planCost resp =
  let res = simpleBody resp ^? nth 0 . key "Plan" . key "Total Cost" in
  -- big value in case parsing fails
-  fromMaybe 1000000000.0 $ unbox =<< res
+  fromMaybe 1_000_000_000.0 $ unbox =<< res
  where
    unbox :: JSON.Value -> Maybe Float
    unbox (JSON.Number n) = Just $ toRealFloat n