Thanks, hlint

ekmett · Apr 14, 2016 · dd6cc12 · dd6cc12
1 parent c387f9c
commit dd6cc12
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Control/Lens/Internal/Zoom.hs b/src/Control/Lens/Internal/Zoom.hs
@@ -239,7 +239,7 @@ instance (Applicative f, Semigroup a, Monad m) => Semigroup (Freed f m a) where
   Freed (Free f) <> Freed (Free g) = Freed $ Free $ liftA2 (liftM2 (<>)) f g
 
 instance (Applicative f, Monoid a, Monad m) => Monoid (Freed f m a) where
-  mempty = Freed $ Pure $ mempty
+  mempty = Freed $ Pure mempty
 
   Freed (Pure a) `mappend` Freed (Pure b) = Freed $ Pure $ a `mappend` b
   Freed (Pure a) `mappend` Freed (Free g) = Freed $ Free $ liftA2 (liftM2 mappend) (pure $ return a) g