Permalink
Browse files

Prism, Type: Apply the previous fix to the right place; remove $setup…

… cruft
  • Loading branch information...
ion1 committed Dec 23, 2012
1 parent fd6207f commit e95b155c518add2faf1beb986e8792542c8454ef
Showing with 1 addition and 6 deletions.
  1. +0 −2 src/Control/Lens/Prism.hs
  2. +1 −4 src/Control/Lens/Type.hs
@@ -56,8 +56,6 @@ import Unsafe.Coerce
-- $setup
-- >>> import Control.Lens
-- >>> import Numeric.Natural
--- >>> :set -XFlexibleContexts
--- >>> let nat :: Prism' Integer Natural; nat = prism toInteger $ \i -> if i < 0 then Left i else Right (fromInteger i)
-- >>> let isLeft (Left _) = True; isLeft _ = False
-- >>> let isRight (Right _) = True; isRight _ = False
View
@@ -56,10 +56,7 @@ import Data.Profunctor
-- >>> let getter :: Expr -> Expr; getter = fun "getter"
-- >>> let setter :: Expr -> Expr -> Expr; setter = fun "setter"
-- >>> import Numeric.Natural
--- >>> :set -XFlexibleContexts
--- >>> let nat :: Simple Prism Integer Natural; nat = prism toInteger $ \i -> if i <= 0 then Left i else Right (fromInteger i)
--- >>> let isLeft (Left _) = True; isLeft _ = False
--- >>> let isRight (Right _) = True; isRight _ = False
+-- >>> let nat :: Prism' Integer Natural; nat = prism toInteger $ \i -> if i < 0 then Left i else Right (fromInteger i)
-------------------------------------------------------------------------------
-- Lenses

0 comments on commit e95b155

Please sign in to comment.