@@ -164,7 +164,7 @@ newtype TestCase = TestCase { unTest :: forall t m. Widget t m => (Event t Int,
164164
165165tests :: [(String, TestCase)]
166166tests =
167− [ -- ("switchLoop'", TestCase switchLoop')
167+ [ ("switchLoop'", TestCase switchLoop')
168168 --, ("switchLoop", TestCase switchLoop)
169169 -- , ("switchLoop2", TestCase switchLoop2)
170170
@@ -173,7 +173,7 @@ tests =
173173 -- ("buildStaticLoop", TestCase buildStaticLoop)
174174 -- , ("buildSwitchLoop", TestCase $ buildLoop switchLoop)
175175
176− ("coincidenceLoop", TestCase coincidenceLoop)
176+ -- ("coincidenceLoop", TestCase coincidenceLoop)
177177 -- , ("dynLoop", TestCase dynLoop)
178178 -- , ("buildCoincidenceLoop", TestCase $ buildLoop coincidenceLoop)
179179 ]