[Updated the code for base 4.3.
Nils Anders Danielsson <nils.anders.danielsson@gmail.com>**20110204012009
 Ignore-this: d06448a4399cf6908bc245c78b0d4896
] {
hunk ./ChasingBottoms.cabal 97
-  The code has been tested under GHC 6.12. Most parts can probably be
+  The code has been tested under GHC 7.0. Most parts can probably be
hunk ./ChasingBottoms.cabal 103
-tested-with:        GHC == 6.12.1
+tested-with:        GHC == 7.0.1
hunk ./ChasingBottoms.cabal 120
-    build-depends: QuickCheck == 2.1.*,
-                   mtl == 1.1.*,
-                   base == 4.*,
-                   containers == 0.3.*,
+    build-depends: QuickCheck >= 2.1 && < 2.5,
+                   mtl >= 1.1 && < 2.1,
+                   base >= 4.0 && < 4.4,
+                   containers >= 0.3 && < 0.5,
hunk ./ChasingBottoms.cabal 125
-                   syb >= 0.1.0.2 && < 0.2
+                   syb >= 0.1.0.2 && < 0.3
hunk ./ChasingBottoms.cabal 149
-    build-depends: QuickCheck == 2.1.*,
-                   mtl == 1.1.*,
-                   base == 4.*,
-                   containers == 0.3.*,
+    build-depends: QuickCheck >= 2.1 && < 2.5,
+                   mtl >= 1.1 && < 2.1,
+                   base >= 4.0 && < 4.4,
+                   containers >= 0.3 && < 0.5,
hunk ./ChasingBottoms.cabal 154
-                   syb >= 0.1.0.2 && < 0.2,
+                   syb >= 0.1.0.2 && < 0.3,
hunk ./Test/ChasingBottoms/ContinuousFunctions.hs 217
-matchFlat a = PatternMatch { apply = coarbitrary a, more = empty }
+matchFlat a = PatternMatch { apply = coarbitrary a, more = Seq.empty }
hunk ./Test/ChasingBottoms/ContinuousFunctions.hs 249
-  more = gmapQr (<|) empty match
+  more = gmapQr (<|) Seq.empty match
hunk ./Test/ChasingBottoms/ContinuousFunctions.hs 323
-concat = Seq.foldr (><) empty
+concat = Seq.foldr (><) Seq.empty
hunk ./Test/ChasingBottoms/ContinuousFunctions.hs 336
-  EmptyL  -> return (empty, empty)
+  EmptyL  -> return (Seq.empty, Seq.empty)
hunk ./Test/ChasingBottoms/ContinuousFunctions/Tests.hs 82
-  apply test (Success labels) = test labels
-  apply _    _                = (False, "Test failed.")
+  apply test Success{labels = labels} = test labels
+  apply _    _                        = (False, "Test failed.")
}