Fix -Wincomplete-uni-patterns warning

blockfrost · Nov 8, 2023 · 70e58a7 · 70e58a7
1 parent ca17859
commit 70e58a7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/blockfrost-api/src/Blockfrost/Types/Shared/Amount.hs b/blockfrost-api/src/Blockfrost/Types/Shared/Amount.hs
@@ -31,7 +31,9 @@ data Amount =
 
 -- | SomeDiscrete values always use scale of 1
 unitScale :: Money.Scale
-unitScale = let (Just s) = Money.scaleFromRational 1 in s
+unitScale = case Money.scaleFromRational 1 of
+  Just s -> s
+  Nothing -> error "Money.scaleFromRational impossible"
 
 instance ToJSON Money.SomeDiscrete where
   toJSON sd =