Update README and commits.

Author: thomashoneyman

README.md

@@ -22,7 +22,7 @@ Module documentation is [published on Pursuit](http://pursuit.purescript.org/pac
 
 ## Benchmarks
 
-The following benchmarks compare the current implementation with the implementation at `v0.6.1` (purescript/purescript-free@0df59c5d459fed983131856886fc3a4b43234f1f), which used the `Gosub` technique to defer monadic binds.
+The following benchmarks compare the implementation at `v5.2.0` (commit f686f5fc07766f3ca9abc83b47b6ad3da326759a) with the implementation at `v0.6.1` (commit 0df59c5d459fed983131856886fc3a4b43234f1f), which used the `Gosub` technique to defer monadic binds.
 
 ![left-bind-small](benchmark/left-bind-small.png)
 

benchmark/Benchmark/Free326759a.purs renamed to benchmark/Benchmark/Freef686f5f.purs

@@ -1,4 +1,4 @@
-module Benchmark.Free326759a
+module Benchmark.Freef686f5f
   ( Free
   , suspendF
   , wrap

benchmark/Benchmark/Main.purs

@@ -2,9 +2,9 @@ module Benchmark.Main (main) where
 
 import Prelude
 
-import Benchmark.Free326759a as Free326759a
+import Benchmark.Freef686f5f as Freef686f5f
 import Benchmark.Trampoline0df59c5 as Trampoline0df59c5
-import Benchmark.Trampoline326759a as Trampoline326759a
+import Benchmark.Trampolinef686f5f as Trampolinef686f5f
 import Benchotron.Core (Benchmark, benchFn, mkBenchmark)
 import Benchotron.UI.Console (runSuite)
 import Data.Foldable (foldl)
@@ -30,19 +30,19 @@ leftBindSmallBenchmark =
     , inputsPerSize: inputsPerSize
     , gen: \n -> vectorOf n (pure 0.0)
     , functions:
-        [ benchFn "Free v5.2.0" (Trampoline326759a.runTrampoline <<< binds)
+        [ benchFn "Free v5.2.0" (Trampolinef686f5f.runTrampoline <<< binds)
         , benchFn "Free v0.6.1" (Trampoline0df59c5.runTrampoline <<< bindsT)
         ]
     }
   where
   inputsPerSize :: Int
   inputsPerSize = 100
 
-  binds :: Array Number -> Trampoline326759a.Trampoline Number
+  binds :: Array Number -> Trampolinef686f5f.Trampoline Number
   binds as = foldl (\b a -> b >>= const (gen a)) (gen 0.0) as
 
-  gen :: forall a. a -> Trampoline326759a.Trampoline a
-  gen = Free326759a.suspendF <<< Trampoline326759a.done
+  gen :: forall a. a -> Trampolinef686f5f.Trampoline a
+  gen = Freef686f5f.suspendF <<< Trampolinef686f5f.done
 
   bindsT :: Array Number -> Trampoline0df59c5.Trampoline Number
   bindsT as = foldl (\b a -> b >>= const (genT a)) (genT 0.0) as
@@ -60,19 +60,19 @@ rightBindSmallBenchmark =
   , inputsPerSize: inputsPerSize
   , gen: \n -> vectorOf n (pure 0.0)
   , functions:
-      [ benchFn "Free v5.2.0" (Trampoline326759a.runTrampoline <<< binds)
+      [ benchFn "Free v5.2.0" (Trampolinef686f5f.runTrampoline <<< binds)
       , benchFn "Free v0.6.1" (Trampoline0df59c5.runTrampoline <<< bindsT)
       ]
   }
   where
   inputsPerSize :: Int
   inputsPerSize = 100
 
-  binds :: Array Number -> Trampoline326759a.Trampoline Number
+  binds :: Array Number -> Trampolinef686f5f.Trampoline Number
   binds as = foldl (\b a -> gen a >>= const b) (gen 0.0) as
 
-  gen :: forall a. a -> Trampoline326759a.Trampoline a
-  gen = Free326759a.suspendF <<< Trampoline326759a.done
+  gen :: forall a. a -> Trampolinef686f5f.Trampoline a
+  gen = Freef686f5f.suspendF <<< Trampolinef686f5f.done
 
   bindsT :: Array Number -> Trampoline0df59c5.Trampoline Number
   bindsT as = foldl (\b a -> genT a >>= const b) (genT 0.0) as
@@ -90,7 +90,7 @@ leftBindLargeBenchmark =
     , inputsPerSize: inputsPerSize
     , gen: \n -> vectorOf n (pure 0.0)
     , functions:
-        [ benchFn "Free v5.2.0" (Trampoline326759a.runTrampoline <<< binds)
+        [ benchFn "Free v5.2.0" (Trampolinef686f5f.runTrampoline <<< binds)
         -- Disabled due to stack overflow
         -- , benchFn "Free v0.6.1" (Trampoline0df59c5.runTrampoline <<< bindsT)
         ]
@@ -99,11 +99,11 @@ leftBindLargeBenchmark =
   inputsPerSize :: Int
   inputsPerSize = 1
 
-  binds :: Array Number -> Trampoline326759a.Trampoline Number
+  binds :: Array Number -> Trampolinef686f5f.Trampoline Number
   binds as = foldl (\b a -> b >>= const (gen a)) (gen 0.0) as
 
-  gen :: forall a. a -> Trampoline326759a.Trampoline a
-  gen = Free326759a.suspendF <<< Trampoline326759a.done
+  gen :: forall a. a -> Trampolinef686f5f.Trampoline a
+  gen = Freef686f5f.suspendF <<< Trampolinef686f5f.done
 
   bindsT :: Array Number -> Trampoline0df59c5.Trampoline Number
   bindsT as = foldl (\b a -> b >>= const (genT a)) (genT 0.0) as
@@ -121,19 +121,19 @@ rightBindLargeBenchmark =
     , inputsPerSize: inputsPerSize
     , gen: \n -> vectorOf n (pure 0.0)
     , functions:
-        [ benchFn "Free v5.2.0" (Trampoline326759a.runTrampoline <<< binds)
+        [ benchFn "Free v5.2.0" (Trampolinef686f5f.runTrampoline <<< binds)
         , benchFn "Free v0.6.1" (Trampoline0df59c5.runTrampoline <<< bindsT)
         ]
     }
   where
   inputsPerSize :: Int
   inputsPerSize = 1
 
-  binds :: Array Number -> Trampoline326759a.Trampoline Number
+  binds :: Array Number -> Trampolinef686f5f.Trampoline Number
   binds as = foldl (\b a -> gen a >>= const b) (gen 0.0) as
 
-  gen :: forall a. a -> Trampoline326759a.Trampoline a
-  gen = Free326759a.suspendF <<< Trampoline326759a.done
+  gen :: forall a. a -> Trampolinef686f5f.Trampoline a
+  gen = Freef686f5f.suspendF <<< Trampolinef686f5f.done
 
   bindsT :: Array Number -> Trampoline0df59c5.Trampoline Number
   bindsT as = foldl (\b a -> genT a >>= const b) (genT 0.0) as

benchmark/Benchmark/Trampoline326759a.purs renamed to benchmark/Benchmark/Trampolinef686f5f.purs

@@ -1,7 +1,7 @@
 -- | A _trampoline_ monad, which can be used at the bottom of
 -- | a monad transformer stack to avoid stack overflows in large
 -- | monadic computations.
-module Benchmark.Trampoline326759a
+module Benchmark.Trampolinef686f5f
   ( Trampoline
   , done
   , delay
@@ -10,7 +10,7 @@ module Benchmark.Trampoline326759a
 
 import Prelude
 
-import Benchmark.Free326759a (Free, liftF, runFree)
+import Benchmark.Freef686f5f (Free, liftF, runFree)
 
 -- | The `Trampoline` monad
 -- |