diff --git a/loops.cabal b/loops.cabal
--- a/loops.cabal
+++ b/loops.cabal
@@ -1,5 +1,5 @@
 name:                loops
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            Fast imperative-style loops
 description:
   @loops@ is a library for fast, imperative-style loops with a clean syntax.
diff --git a/src/Control/Monad/Loop/Internal.hs b/src/Control/Monad/Loop/Internal.hs
--- a/src/Control/Monad/Loop/Internal.hs
+++ b/src/Control/Monad/Loop/Internal.hs
@@ -33,15 +33,7 @@
 -- (for 'exec_'). If @m@ is also 'Foldable', so is @LoopT m@. For any other
 -- type, you may use 'runLoopT'.
 newtype LoopT m a = LoopT
-    { runLoopT
-        :: forall r. (a -> m r -> m r -> m r)
-          -- ^ Yield a value to the inner loop. The inner loop will call
-          -- the second argument to continue and the third argument to
-          -- break.
-        -> m r  -- ^ Continue
-        -> m r  -- ^ Break
-        -> m r
-    }
+    { runLoopT :: forall r. (a -> m r -> m r -> m r) -> m r -> m r -> m r }
 
 -- | @Loop@ is a pure loop, without side-effects.
 type Loop = LoopT Identity