@@ -44,5 +44,5 @@ guard a = if a then pure () else empty
45||| Conditionally execute an applicative expression
45||| Conditionally execute an applicative expression
46when : Applicative f => Bool -> Lazy (f ()) -> f ()
46when : Applicative f => Bool -> Lazy (f ()) -> f ()
47−when True f = f
47+when True f = Force f
48when False f = pure ()
48when False f = pure ()