@@ -589,6 +589,7 @@ parseManyWordQuotedBy =
589589-- Right _ -> False
590590-- Left _ -> True)
591591
592+{-
592593deintercalate :: Property
593594deintercalate =
594595 forAll (listOf (chooseAny :: Gen Int)) $ \ls ->
@@ -603,6 +604,7 @@ deintercalate =
603604 FL.tee (fmap concat $ FL.catLefts FL.toList)
604605 (fmap concat $ FL.catRights FL.toList)
605606 p = P.deintercalate p1 p2 partition
607+-}
606608
607609-- shortestPass :: Property
608610-- shortestPass =
@@ -1201,7 +1203,7 @@ main =
12011203 -- prop "" teeWithFailLeft
12021204 -- prop "" teeWithFailRight
12031205 -- prop "" teeWithFailBoth
1204− prop "deintercalate" deintercalate
1206+ -- prop "deintercalate" deintercalate
12051207 -- prop "" shortestPass
12061208 -- prop "" shortestFailLeft
12071209 -- prop "" shortestFailRight