Permalink
Browse files

Move doctest import of Data.Void

  • Loading branch information...
1 parent 70ad135 commit a82b8b0de348022f38c549909fd7014c33b4d19c @ehird ehird committed Feb 14, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Control/Lens/Traversal.hs
@@ -145,6 +145,7 @@ import Control.Lens.Setter
-- >>> import Control.DeepSeq (NFData (..), force)
-- >>> import Control.Exception (evaluate)
-- >>> import Data.Maybe (fromMaybe)
+-- >>> import Data.Void
-- >>> import System.Timeout (timeout)
-- >>> let timingOut :: NFData a => a -> IO a; timingOut = fmap (fromMaybe (error "timeout")) . timeout (5*10^6) . evaluate . force
@@ -930,7 +931,6 @@ traversed64 = conjoined traverse (indexing64 traverse)
-- 'ignored' ≡ 'const' 'pure'
-- @
--
--- >>> import Data.Void
-- >>> 6 & ignored %~ absurd
-- 6
ignored :: Applicative f => pafb -> s -> f s

0 comments on commit a82b8b0

Please sign in to comment.