From 99c65326e759d8cfedf48ff2c11185b4041bf0e2 Mon Sep 17 00:00:00 2001
From: Martijn Bastiaan <martijn@qbaylogic.com>
Date: Fri, 6 Sep 2024 20:17:29 +0200
Subject: [PATCH] Disable fourmolu for table

---
 .../Bittide/Instances/Hitl/HwCcTopologies.hs  | 56 +++++++++----------
 1 file changed, 28 insertions(+), 28 deletions(-)

diff --git a/bittide-instances/src/Bittide/Instances/Hitl/HwCcTopologies.hs b/bittide-instances/src/Bittide/Instances/Hitl/HwCcTopologies.hs
index 34d3a3d0e..23bc2d255 100644
--- a/bittide-instances/src/Bittide/Instances/Hitl/HwCcTopologies.hs
+++ b/bittide-instances/src/Bittide/Instances/Hitl/HwCcTopologies.hs
@@ -775,34 +775,7 @@ hwCcTopologyTest refClkDiff sysClkDiff syncIn rxns rxps miso =
 makeTopEntity 'hwCcTopologyTest
 
 tests :: HitlTestGroup
-tests =
-  HitlTestGroup
-    { topEntity = 'hwCcTopologyTest
-    , extraXdcFiles = []
-    , externalHdl = []
-    , testCases =
-        [ -- CALIBRATION --
-          -----------------
-
-          -- detect the natual clock offsets to be elided from the later tests
-          calibrateClockOffsets
-        , -- TESTS --
-          -----------
-
-          -- initial clock shifts   startup delays            topology
-          tt (Just icsDiamond) ((m *) <$> sdDiamond) diamond
-        , tt (Just icsComplete) ((m *) <$> sdComplete) $ complete d3
-        , tt (Just icsCyclic) ((m *) <$> sdCyclic) $ cyclic d5
-        , tt (Just icsTorus) ((m *) <$> sdTorus) $ torus2d d2 d3
-        , tt (Just icsStar) ((m *) <$> sdStar) $ star d7
-        , tt (Just icsLine) ((m *) <$> sdLine) $ line d4
-        , tt (Just icsHourglass) ((m *) <$> sdHourglass) $ hourglass d3
-        , -- CALIBRATION VERIFICATON --
-          -----------------------------
-          validateClockOffsetCalibration
-        ]
-    , mPostProc = Nothing
-    }
+tests = testGroup
  where
   m = 1_000_000
 
@@ -844,6 +817,7 @@ tests =
 
   calibrateClockOffsets = calibrateCC False
   validateClockOffsetCalibration = calibrateCC True
+
   calibrateCC :: Bool -> HitlTestCase HwTargetRef TestConfig CcConf
   calibrateCC validate =
     HitlTestCase
@@ -922,3 +896,29 @@ tests =
         , ..
         }
     )
+
+{- FOURMOLU_DISABLE -} -- fourmolu doesn't do well with tabular structures
+  testGroup =
+    HitlTestGroup
+    { topEntity = 'hwCcTopologyTest
+    , extraXdcFiles = []
+    , externalHdl = []
+    , testCases =
+        [ -- detect the natual clock offsets to be elided from the later tests
+          calibrateClockOffsets
+
+          -- initial clock shifts   startup delays            topology
+        , tt (Just icsDiamond)      ((m *) <$> sdDiamond)     diamond
+        , tt (Just icsComplete)     ((m *) <$> sdComplete)    (complete d3)
+        , tt (Just icsCyclic)       ((m *) <$> sdCyclic)      (cyclic d5)
+        , tt (Just icsTorus)        ((m *) <$> sdTorus)       (torus2d d2 d3)
+        , tt (Just icsStar)         ((m *) <$> sdStar)        (star d7)
+        , tt (Just icsLine)         ((m *) <$> sdLine)        (line d4)
+        , tt (Just icsHourglass)    ((m *) <$> sdHourglass)   (hourglass d3)
+        , -- CALIBRATION VERIFICATON --
+          -----------------------------
+          validateClockOffsetCalibration
+        ]
+    , mPostProc = Nothing
+    }
+{- FOURMOLU_ENABLE -}