Remove extra import

Author: JoelLefkowitz

src/Control/Applicative.purs

@@ -13,7 +13,6 @@ module Control.Applicative
 import Control.Apply (class Apply, apply, (*>), (<*), (<*>))
 import Control.Category ((<<<))
 
-import Data.Boolean (otherwise)
 import Data.Functor (class Functor, map, void, ($>), (<#>), (<$), (<$>))
 import Data.HeytingAlgebra (not)
 import Data.Unit (Unit, unit)
@@ -69,14 +68,14 @@ when :: forall m. Applicative m => Boolean -> m Unit -> m Unit
 when true m = m
 when false _ = pure unit
 
--- | Perform an applicative action lazily when a condition is true.
+-- | Construct an applicative action when a condition is true.
 when' :: forall m a. Applicative m => (a -> Boolean) -> (a -> m Unit) -> a -> m Unit
 when' f m a = if f a then m a else pure unit
 
 -- | Perform an applicative action unless a condition is true.
 unless :: forall m. Applicative m => Boolean -> m Unit -> m Unit
 unless = when <<< not
 
--- | Perform an applicative action lazily unless a condition is true.
+-- | Construct an applicative action unless a condition is true.
 unless' :: forall m a. Applicative m => (a -> Boolean) -> (a -> m Unit) -> a -> m Unit
 unless' = when' <<< not

src/Control/Monad.purs

@@ -62,7 +62,7 @@ liftM1 f a = do
 whenM :: forall m. Monad m => m Boolean -> m Unit -> m Unit
 whenM mb m = ifM mb m $ pure unit
 
--- | Perform a monadic action lazily when a condition is true, where the conditional
+-- | Construct a monadic action when a condition is true, where the conditional
 -- | value is also in a monadic context.
 whenM' :: forall m a. Monad m => (a -> m Boolean) -> (a -> m Unit) -> a -> m Unit
 whenM' mb m = ifM' mb m \_ -> pure unit
@@ -72,7 +72,7 @@ whenM' mb m = ifM' mb m \_ -> pure unit
 unlessM :: forall m. Monad m => m Boolean -> m Unit -> m Unit
 unlessM mb = whenM $ not <$> mb
 
--- | Perform a monadic action lazily unless a condition is true, where the conditional
+-- | Construct a monadic action unless a condition is true, where the conditional
 -- | value is also in a monadic context.
 unlessM' :: forall m a. Monad m => (a -> m Boolean) -> (a -> m Unit) -> a -> m Unit
 unlessM' mb = whenM' \x -> mb x >>= not >>> pure