From 2470f7310ff9ecff0e3fdef7433f93b5c4222f2b Mon Sep 17 00:00:00 2001
From: Alex Washburn <github@recursion.ninja>
Date: Mon, 12 Oct 2020 10:19:32 -0400
Subject: [PATCH] Correcting strict data constructor 'bang pattern' usage to be
 compatible with GHC-9.0

---
 src/Data/Decimal.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Data/Decimal.hs b/src/Data/Decimal.hs
index 340b49b..5fbd685 100644
--- a/src/Data/Decimal.hs
+++ b/src/Data/Decimal.hs
@@ -66,8 +66,8 @@ import Text.ParserCombinators.ReadP
 -- will return \"1.500\".  Conversely the "Read" instance will use the decimal
 -- places to determine the precision.
 data DecimalRaw i = Decimal {
-      decimalPlaces :: ! Word8,
-      decimalMantissa :: ! i}
+      decimalPlaces :: !Word8,
+      decimalMantissa :: !i}
                                   deriving (Typeable)