on master help sign in
Add a top-level Data.Generics.Sum module.
commit1a87a9041aa780ecb75da3a25cf1598d63964223 authorWill Jones <will@sacharissa.co.uk> dateMon 31 Jul 2017, 17:53 (9 years ago) parent72c8592
3 files changed+30−6
generic-lens.cabal+1 src/Data/Generics/Product.hs+4−4 src/Data/Generics/Sum.hs+25−2
generic-lens.cabal+1
@@ -24,6 +24,7 @@ library
2424 , Data.Generics.Product.Positions
2525 , Data.Generics.Product.Subtype
2626 , Data.Generics.Product.Typed
27+ , Data.Generics.Sum
2728 , Data.Generics.Sum.Any
2829 , Data.Generics.Sum.Constructors
2930 , Data.Generics.Sum.Typed
src/Data/Generics/Product.hs+4−4
@@ -14,21 +14,21 @@
1414-- be derived (see examples).
1515--
1616-----------------------------------------------------------------------------
17+
1718module Data.Generics.Product
18− ( -- * Lenses
19+ ( -- *Lenses
1920 HasAny (..)
2021
2122 , HasField (..)
2223 , HasPosition (..)
2324 , HasType (..)
2425
25− -- * Subtype relationship
26+ -- *Subtype relationships
2627 , Subtype (..)
27−
2828 ) where
2929
3030import Data.Generics.Product.Any
3131import Data.Generics.Product.Fields
3232import Data.Generics.Product.Positions
33−import Data.Generics.Product.Typed
3433import Data.Generics.Product.Subtype
34+import Data.Generics.Product.Typed
src/Data/Generics/Sum.hs+25−2
@@ -1,5 +1,28 @@
1+-----------------------------------------------------------------------------
2+-- |
3+-- Module : Data.Generics.Product
4+-- Copyright : (C) 2017 Csongor Kiss
5+-- License : BSD3
6+-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
7+-- Stability : experimental
8+-- Portability : non-portable
9+--
10+-- Magic sum operations using Generics
11+--
12+-- These classes need not be instantiated manually, as GHC can automatically
13+-- prove valid instances via Generics. Only the `Generic` class needs to
14+-- be derived (see examples).
15+--
16+-----------------------------------------------------------------------------
17+
118module Data.Generics.Sum
2− ( module HasConstructor
19+ ( -- *Prisms
20+ AsAny (..)
21+
22+ , AsConstructor (..)
23+ , AsType (..)
324 ) where
425
5−import Data.Generics.Sum.HasConstructor as HasConstructor
26+import Data.Generics.Sum.Any
27+import Data.Generics.Sum.Constructors
28+import Data.Generics.Sum.Typed