From cd50f323a618819da9fec30f7d4c73dc609111a8 Mon Sep 17 00:00:00 2001
From: Luke <luke@supercede.com>
Date: Wed, 31 Aug 2022 20:03:19 +0100
Subject: [PATCH] Remove boilerplate that is inferred from compiler anyway

---
 test/TestXlsx.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/TestXlsx.hs b/test/TestXlsx.hs
index d9c5f51..4bc2750 100644
--- a/test/TestXlsx.hs
+++ b/test/TestXlsx.hs
@@ -521,14 +521,14 @@ testCondFormattedResult = CondFormatted styleSheet formattings
 
 testFormattedCells :: Map (RowIndex, ColumnIndex) FormattedCell
 testFormattedCells = flip execState def $ do
-    at (RowIndex 1, ColumnIndex 1) ?=
+    at (1, 1) ?=
                   (def & formattedRowSpan .~ 5
                      & formattedColSpan .~ 5
                      & formattedFormat . formatBorder . non def . borderTop .
                                                         non def . borderStyleLine ?~ LineStyleDashed
                      & formattedFormat . formatBorder . non def . borderBottom .
                                                         non def . borderStyleLine ?~ LineStyleDashed)
-    at (RowIndex 10, ColumnIndex 2) ?= (def & formattedFormat . formatFont . non def . fontBold ?~ True)
+    at (10, 2) ?= (def & formattedFormat . formatFont . non def . fontBold ?~ True)
 
 testRunCondFormatted :: CondFormatted
 testRunCondFormatted = conditionallyFormatted condFmts minimalStyleSheet