Permalink
Browse files

Remove an unnecessary parenthesis

  • Loading branch information...
1 parent 8bbb869 commit a75a15c1e26c059fd90ae65a5fbd2183766c57ee @ehird ehird committed Dec 27, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Control/Lens/Zipper/Internal.hs
@@ -177,8 +177,8 @@ type instance Zipped (h :> s) a = Zipped h s
--
-- This is part of the internal structure of a zipper. You shouldn't need to manipulate this directly.
data Coil t a
- = (t ~ Top) => Coil
- | forall h s. (t ~ (h :> s)) => Snoc !(Coil h s) (ATraversal' s a) !(Path s) (Magma a -> s)
+ = t ~ Top => Coil
+ | forall h s. t ~ (h :> s) => Snoc !(Coil h s) (ATraversal' s a) !(Path s) (Magma a -> s)
-- | This 'Lens' views the current target of the 'Zipper'.
--

0 comments on commit a75a15c

Please sign in to comment.