Permalink
Browse files

test repair

  • Loading branch information...
1 parent f67e34b commit 621bb1ec9138dab22e0e15ab269972ad92246cd4 @ekmett committed Aug 27, 2012
Showing with 8 additions and 13 deletions.
  1. +1 −1 lens.cabal
  2. +3 −3 src/Control/Lens/Setter.hs
  3. +1 −1 src/Data/Monoid/Lens.hs
  4. +0 −3 src/Data/Text/Lens.hs
  5. +2 −2 src/System/FilePath/Lens.hs
  6. +1 −3 tests/properties.hs
View
@@ -106,7 +106,7 @@ library
hashable == 1.1.*,
mtl >= 2.1.1 && < 2.2,
template-haskell >= 2.4 && < 2.9,
- text >= 0.11.1.5 && < 0.12,
+ text >= 0.11 && < 0.12,
transformers >= 0.3 && < 0.4,
unordered-containers >= 0.2 && < 0.3
@@ -383,7 +383,7 @@ l **~ n = over l (** n)
-- | Logically '||' the target(s) of a 'Bool'-valued 'Control.Lens.Type.Lens' or 'Setter'
--
--- >>> :m + Control.Lens Data.Pair.Lens
+-- >>> :m + Control.Lens
--
-- >>> both ||~ True $ (False,True)
-- (True,True)
@@ -403,7 +403,7 @@ l ||~ n = over l (|| n)
-- | Logically '&&' the target(s) of a 'Bool'-valued 'Control.Lens.Type.Lens' or 'Setter'
--
--- >>> :m + Control.Lens Data.Pair.Lens
+-- >>> :m + Control.Lens
--
-- >>> both &&~ True $ (False, True)
-- (False,True)
@@ -487,7 +487,7 @@ l -= b = State.modify (l -~ b)
-- | Modify the target(s) of a 'Control.Lens.Type.Simple' 'Control.Lens.Type.Lens', 'Control.Lens.Iso.Iso', 'Setter' or 'Control.Lens.Traversal.Traversal' by multiplying by value.
--
--- @ballSpeed '.' 'Data.Pair.Lens.both' '*=' speedMultiplier@
+-- @ballSpeed '.' 'Control.Lens.Traversal.both' '*=' speedMultiplier@
--
-- @
-- ('*=') :: ('MonadState' a m, 'Num' b) => 'Control.Lens.Type.Simple' 'Setter' a b -> b -> m ()
@@ -23,7 +23,7 @@ infix 4 <>=, <<>=
-- | Modify the target of a monoidally valued by 'mappend'ing another value.
--
--- >>> :m + Control.Lens Data.Pair.Lens
+-- >>> :m + Control.Lens
-- >>> both <>~ "!!!" $ ("hello","world")
-- ("hello!!!","world!!!")
--
@@ -30,9 +30,6 @@ class IsText t where
packed :: Simple Iso String t
-- | Traverse the individual characters in strict or lazy 'Text'.
- --
- -- >>> anyOf text (=='o') $ "hello"^.packed
- -- True
text :: SimpleIndexedTraversal Int t Char
text = from packed .> itraversed
{-# INLINE text #-}
@@ -30,7 +30,7 @@ infix 4 </>=, <</>=, <.>=, <<.>=
-- | Modify the path by adding another path.
--
--- >>> :m + Control.Lens Data.Pair.Lens
+-- >>> :m + Control.Lens
-- >>> both </>~ "!!!" $ ("hello","world")
-- ("hello/!!!","world/!!!")
--
@@ -77,7 +77,7 @@ l <</>= r = l <%= (</> r)
-- | Modify the path by adding extension.
--
--- >>> :m + Control.Lens Data.Pair.Lens
+-- >>> :m + Control.Lens
-- >>> both <.>~ "!!!" $ ("hello","world")
-- ("hello.!!!","world.!!!")
--
View
@@ -12,9 +12,7 @@ import System.Exit
import Test.QuickCheck
import Test.QuickCheck.All
import Test.QuickCheck.Function
-import Data.Pair.Lens
-import Data.Either.Lens
-import Data.Text.Lens
+import Data.Text.Strict.Lens
setter_id :: Eq a => Simple Setter a b -> a -> Bool
setter_id l a = runIdentity (l Identity a) == a

0 comments on commit 621bb1e

Please sign in to comment.