Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

:set -XNoOverloadedStrings to work around doctest flags carrying over…

… between modules.
  • Loading branch information...
commit f70cbd2fd5dc35027b296e2ce8c142f73c0971f2 1 parent 59d44fe
@ekmett authored
View
3  src/Control/Lens/Action.hs
@@ -55,7 +55,8 @@ import Data.Profunctor.Rep
import Data.Profunctor.Unsafe
-- $setup
--- >>> :m + Control.Lens
+-- >>> :set -XNoOverloadedStrings
+-- >>> import Control.Lens
infixr 8 ^!, ^!!, ^@!, ^@!!, ^!?, ^@!?
View
1  src/Control/Lens/Combinators.hs
@@ -22,6 +22,7 @@ import Data.Functor ((<$>))
-- >>> import Control.Monad.State
-- >>> import Debug.SimpleReflect.Expr
-- >>> import Debug.SimpleReflect.Vars as Vars hiding (f)
+-- >>> :set -XNoOverloadedStrings
-- >>> let f :: Expr -> Expr; f = Debug.SimpleReflect.Vars.f
infixl 1 &, <&>, ??
View
1  src/Control/Lens/Cons.hs
@@ -61,6 +61,7 @@ import qualified Data.Vector.Unboxed as Unbox
import Data.Word
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Control.Lens
-- >>> import Debug.SimpleReflect.Expr
-- >>> import Debug.SimpleReflect.Vars as Vars hiding (f,g)
View
5 src/Control/Lens/Fold.hs
@@ -147,17 +147,18 @@ import Data.Profunctor.Unsafe
import Data.Traversable
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Control.Lens
-- >>> import Data.Function
-- >>> import Data.List.Lens
-- >>> import Debug.SimpleReflect.Expr
-- >>> import Debug.SimpleReflect.Vars as Vars hiding (f,g)
--- >>> let f :: Expr -> Expr; f = Debug.SimpleReflect.Vars.f
--- >>> let g :: Expr -> Expr; g = Debug.SimpleReflect.Vars.g
-- >>> import Control.DeepSeq (NFData (..), force)
-- >>> import Control.Exception (evaluate)
-- >>> import Data.Maybe (fromMaybe)
-- >>> import System.Timeout (timeout)
+-- >>> let f :: Expr -> Expr; f = Debug.SimpleReflect.Vars.f
+-- >>> let g :: Expr -> Expr; g = Debug.SimpleReflect.Vars.g
-- >>> let timingOut :: NFData a => a -> IO a; timingOut = fmap (fromMaybe (error "timeout")) . timeout (5*10^6) . evaluate . force
{-# ANN module "HLint: ignore Eta reduce" #-}
View
1  src/Control/Lens/Internal/Zipper.hs
@@ -49,6 +49,7 @@ import Data.Monoid
import Data.Profunctor.Unsafe
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Control.Lens
-- >>> import Data.Char
View
1  src/Control/Lens/Lens.hs
@@ -123,6 +123,7 @@ import Data.Profunctor.Unsafe
{-# ANN module "HLint: ignore Use ***" #-}
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Control.Lens
-- >>> import Debug.SimpleReflect.Expr
-- >>> import Debug.SimpleReflect.Vars as Vars hiding (f,g,h)
View
1  src/Control/Lens/Level.hs
@@ -28,6 +28,7 @@ import Control.Lens.Traversal
import Data.Profunctor.Unsafe
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Control.Lens
-- >>> import Data.Char
View
1  src/Control/Lens/Setter.hs
@@ -101,6 +101,7 @@ import Data.Profunctor.Unsafe
-- >>> let h :: Expr -> Expr -> Expr; h = Vars.h
-- >>> let getter :: Expr -> Expr; getter = fun "getter"
-- >>> let setter :: Expr -> Expr -> Expr; setter = fun "setter"
+-- >>> :set -XNoOverloadedStrings
infixr 4 %@~, .~, +~, *~, -~, //~, ^~, ^^~, **~, &&~, <>~, ||~, %~, <.~, ?~, <?~
infix 4 %@=, .=, +=, *=, -=, //=, ^=, ^^=, **=, &&=, <>=, ||=, %=, <.=, ?=, <?=
View
1  src/Control/Lens/Traversal.hs
@@ -132,6 +132,7 @@ import Data.Profunctor.Unsafe
import Prelude hiding ((.),id)
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Control.Lens
-- >>> import Control.DeepSeq (NFData (..), force)
-- >>> import Control.Exception (evaluate)
View
3  src/Control/Lens/Zipper.hs
@@ -91,4 +91,5 @@ module Control.Lens.Zipper
import Control.Lens.Internal.Zipper
-- $setup
--- >>> :m + Control.Lens
+-- >>> :set -XNoOverloadedStrings
+-- >>> import Control.Lens
View
6 src/Data/ByteString/Lazy/Lens.hs
@@ -22,6 +22,10 @@ import Data.ByteString.Lazy.Char8 as Char8
import Data.Word (Word8)
import Data.Int (Int64)
+-- $setup
+-- >>> :set -XOverloadedStrings
+-- >>> import Numeric.Lens
+
-- | 'Data.ByteString.Lazy.pack' (or 'Data.ByteString.Lazy.unpack') a list of bytes into a 'ByteString'.
--
-- @
@@ -78,7 +82,7 @@ bytes = traversedLazy
-- 'Data.ByteString.Char8.unpack' x ≡ x '^.' 'from' 'packedChars'
-- @
--
--- >>> "hello"^.packedChars.each.re (base 16 . enum).to (\x -> if length x == 1 then '0':x else x)
+-- >>> "hello"^.packedChars.each.re (base 16 . enum).to (\x -> if Prelude.length x == 1 then '0':x else x)
-- "68656c6c6f"
packedChars :: Iso' String ByteString
packedChars = iso Char8.pack unpackLazy8
View
2  src/Data/ByteString/Strict/Lens.hs
@@ -81,7 +81,7 @@ bytes = traversedStrictTree 0
-- 'Data.ByteString.Char8.unpack' x ≡ x '^.' 'from' 'packedChars'
-- @
--
--- >>> "hello"^.packedChars.each.re (base 16 . enum).to (\x -> if length x == 1 then '0':x else x)
+-- >>> "hello"^.packedChars.each.re (base 16 . enum).to (\x -> if Prelude.length x == 1 then '0':x else x)
-- "68656c6c6f"
packedChars :: Iso' String ByteString
packedChars = iso Char8.pack unpackStrict8
View
1  src/Data/Data/Lens.hs
@@ -70,6 +70,7 @@ import GHC.Exts (realWorld#)
{-# ANN module "HLint: ignore Reduce duplication" #-}
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Control.Lens
-------------------------------------------------------------------------------
View
1  src/Data/List/Lens.hs
@@ -27,6 +27,7 @@ import Data.Functor
import Data.List
-- $setup
+-- >>> :set -XNoOverloadedStrings
-- >>> import Debug.SimpleReflect.Expr
-- >>> import Debug.SimpleReflect.Vars as Vars hiding (f,g)
-- >>> let f :: Expr -> Expr; f = Debug.SimpleReflect.Vars.f

0 comments on commit f70cbd2

Please sign in to comment.
Something went wrong with that request. Please try again.