[Attempt to make the documentation render properly on Hackage.
Nils Anders Danielsson <nils.anders.danielsson@gmail.com>**20150623112239
 Ignore-this: ef53499c6e4afebade0d70ff4cb599c1
] {
hunk ./ChasingBottoms.cabal 23
-  >> isBottom (head [])
-  >True
+  > > isBottom (head [])
+  > True
hunk ./ChasingBottoms.cabal 26
-  >> isBottom bottom
-  >True
+  > > isBottom bottom
+  > True
hunk ./ChasingBottoms.cabal 29
-  >> isBottom (\_ -> bottom)
-  >False
+  > > isBottom (\_ -> bottom)
+  > False
hunk ./ChasingBottoms.cabal 32
-  >> isBottom (bottom, bottom)
-  >False
+  > > isBottom (bottom, bottom)
+  > False
hunk ./ChasingBottoms.cabal 37
-  >> ((bottom, 3) :: (Bool, Int)) ==! (bottom, 2+5-4)
-  >True
+  > > ((bottom, 3) :: (Bool, Int)) ==! (bottom, 2+5-4)
+  > True
hunk ./ChasingBottoms.cabal 40
-  >> ((bottom, bottom) :: (Bool, Int)) <! (bottom, 8)
-  >True
+  > > ((bottom, bottom) :: (Bool, Int)) <! (bottom, 8)
+  > True
hunk ./ChasingBottoms.cabal 45
-  >> approxShow 4 $ (True, bottom) \/! (bottom, 'b')
-  >"Just (True, 'b')"
+  > > approxShow 4 $ (True, bottom) \/! (bottom, 'b')
+  > "Just (True, 'b')"
hunk ./ChasingBottoms.cabal 48
-  >> approxShow 4 $ (True, bottom) /\! (bottom, 'b')
-  >"(_|_, _|_)"
+  > > approxShow 4 $ (True, bottom) /\! (bottom, 'b')
+  > "(_|_, _|_)"
hunk ./ChasingBottoms.cabal 51
-  >> approxShow 4 $ ([1..] :: [Int])
-  >"[1, 2, 3, _"
+  > > approxShow 4 $ ([1..] :: [Int])
+  > "[1, 2, 3, _"
hunk ./ChasingBottoms.cabal 54
-  >> approxShow 4 $ (cycle [bottom] :: [Bool])
-  >"[_|_, _|_, _|_, _"
+  > > approxShow 4 $ (cycle [bottom] :: [Bool])
+  > "[_|_, _|_, _|_, _"
hunk ./ChasingBottoms.cabal 59
-  >> approx 100 [2,4..] ==! approx 100 (filter even [1..] :: [Int])
-  >True
+  > > approx 100 [2,4..] ==! approx 100 (filter even [1..] :: [Int])
+  > True
hunk ./ChasingBottoms.cabal 62
-  >> approx 100 [2,4..] /=! approx 100 (filter even [bottom..] :: [Int])
-  >True
+  > > approx 100 [2,4..] /=! approx 100 (filter even [bottom..] :: [Int])
+  > True
hunk ./ChasingBottoms.cabal 71
-  >> timeOut' 1 (reverse [1..5])
-  >Value [5,4,3,2,1]
+  > > timeOut' 1 (reverse [1..5])
+  > Value [5,4,3,2,1]
hunk ./ChasingBottoms.cabal 74
-  >> timeOut' 1 (reverse [1..])
-  >NonTermination
+  > > timeOut' 1 (reverse [1..])
+  > NonTermination
hunk ./ChasingBottoms.cabal 102
-  >> let primes () = unfoldr (\(x:xs) -> Just (x, filter ((/= 0) . (`mod` x)) xs)) [2..]
-  >> timeOutMicro 100 (print $ primes ())
-  >[2,NonTermination
-  >> timeOutMicro 10000 (print $ take 10 $ primes ())
-  >[2,3,5,7,11,13,17,19,23,29]
-  >Value ()
+  > > let primes () = unfoldr (\(x:xs) -> Just (x, filter ((/= 0) . (`mod` x)) xs)) [2..]
+  > > timeOutMicro 100 (print $ primes ())
+  > [2,NonTermination
+  > > timeOutMicro 10000 (print $ take 10 $ primes ())
+  > [2,3,5,7,11,13,17,19,23,29]
+  > Value ()
}