Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add Rewrapped instance for Down

  • Loading branch information...
commit 1d9d2758eb5ed07e1fc329fc79da66f32133fb92 1 parent 8b0ff27
@glguy glguy authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  src/Control/Lens/Wrapped.hs
View
1  src/Control/Lens/Wrapped.hs
@@ -283,6 +283,7 @@ instance Wrapped (ArrowMonad m a) where
_Wrapped' = iso getArrowMonad ArrowMonad
{-# INLINE _Wrapped' #-}
+instance t ~ Down a => Rewrapped (Down a) t
instance Wrapped (Down a) where
type Unwrapped (Down a) = a
_Wrapped' = iso (\(Down a) -> a) Down
Please sign in to comment.
Something went wrong with that request. Please try again.