Merge pull request #21 from theGhostJW:fix-error-example

fix example
theGhostJW · Dec 11, 2024 · efc4765 · efc4765
2 parents cebbb0e + 413c299
commit efc4765
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/examples/TestCompilerErrorDemo.hs b/examples/TestCompilerErrorDemo.hs
@@ -88,7 +88,10 @@ data' :: RunConfig -> DataSource Data VS
 data' _rc =
   Items [ ]
 
+
 {-
+
+
 -- #### Compiler Error Data missing Checks #### --
 
 -- Note: this error will only come up in a later phase of compilation
@@ -102,8 +105,8 @@ failsSuite2 =
 testAlt2' :: Fixture ()
 testAlt2' = Full config action2 parseAlt2 data2
 
-action2 ::  RunConfig -> Data2 -> Eff es AS
-action2 _rc _i = 
+action2 :: Data2 -> Eff es AS
+action2 _i = 
   pure $ AS {status = Ready, checkButtonText = "Blah"}
 
 parseAlt2 :: AS -> Either ParseException VS
@@ -119,6 +122,7 @@ data Data2 = Item2
   }
   deriving (Show, Read)
 
+
 -- #### Compiler Error - Data Source Mismatch #### --
 
 
@@ -249,5 +253,4 @@ data Data11 = Item11
     checks :: Checks VS
   }
   deriving (Show, Read)
-
--}
+-}