Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Update previously removed code for current release

  • Loading branch information...
commit 49ebfe433f38fbbefe89316c96158a9867cae886 1 parent 9217c72
@glguy glguy authored
Showing with 3 additions and 3 deletions.
  1. +1 −1  src/Control/Lens/At.hs
  2. +2 −2 src/Control/Lens/Fold.hs
View
2  src/Control/Lens/At.hs
@@ -91,7 +91,7 @@ import Data.Word
_at, resultAt :: Ixed f m => Index m -> IndexedLensLike' (Index m) f m (IxValue m)
_at = ix
resultAt = ix
-{-# DEPRECATED _at, resultAt "use 'ix'. This function will be removed in version 3.9" #-}
+{-# DEPRECATED _at, resultAt "use 'ix'. This function will be removed after GHC 7.8 is released." #-}
-- |
-- This class provides a simple 'IndexedFold' (or 'IndexedTraversal') that lets you view (and modify)
View
4 src/Control/Lens/Fold.hs
@@ -2487,10 +2487,10 @@ idroppingWhile p l f = (flip evalState True .# getCompose) `rmap` l g where
------------------------------------------------------------------------------
-- | A deprecated alias for 'firstOf'.
-headOf :: Getting (First a) s t a b -> s -> Maybe a
+headOf :: Getting (First a) s a -> s -> Maybe a
headOf l = getFirst #. foldMapOf l (First #. Just)
{-# INLINE headOf #-}
-{-# DEPRECATED headOf "`headOf' will be removed in 3.9. (Use `preview' or `firstOf')" #-}
+{-# DEPRECATED headOf "`headOf' will be removed after GHC 7.8 is released. (Use `preview' or `firstOf')" #-}
------------------------------------------------------------------------------
-- Misc.
Please sign in to comment.
Something went wrong with that request. Please try again.