Skip to content
Browse files

exported defaultRules

  • Loading branch information...
1 parent 5890dc0 commit 9a6fc4a73466f021cb8cfa11263bfd234fdaeea4 @ekmett committed
Showing with 13 additions and 1 deletion.
  1. +1 −1 README.markdown
  2. +10 −0 src/Control/Indexed.hs
  3. +2 −0 src/Control/Lens/TH.hs
View
2 README.markdown
@@ -12,7 +12,7 @@ Example
-------
> ghci> :m + Control.Lens Data.Text.Lens
-> ghci> anyOf text (=='e') $ packed ^$ "hello"
+> ghci> anyOf (traverse.text) (=='y') ["hello"^.packed, "goodbye"^.packed]
> True
Contact Information
View
10 src/Control/Indexed.hs
@@ -3,6 +3,16 @@
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE FlexibleContexts #-}
+-----------------------------------------------------------------------------
+-- |
+-- Module : Control.Indexed
+-- Copyright : (C) 2012 Edward Kmett
+-- License : BSD-style (see the file LICENSE)
+-- Maintainer : Edward Kmett <ekmett@gmail.com>
+-- Stability : provisional
+-- Portability : rank 2 types, MPTCs, TFs, flexible
+--
+----------------------------------------------------------------------------
module Control.Indexed
(
-- * Overloading indexed functions
View
2 src/Control/Lens/TH.hs
@@ -26,6 +26,7 @@ module Control.Lens.TH
, makeIso
, makeLenses, makeLensesFor
, makeLensesWith
+ , defaultRules
) where
import Control.Applicative
@@ -44,6 +45,7 @@ import Data.Traversable
import Language.Haskell.TH
import Language.Haskell.TH.Lens
+-- | Flags for lens construction
data LensFlag
= SimpleLenses

0 comments on commit 9a6fc4a

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