git.iko.soy/generic-lens
on master help sign in
Data.Generic -> Data.Generics
commita250876f9e46622b8e25e588c7356ff023013146 authorCsongor Kiss <kiss.csongor.kiss@gmail.com> dateSat 10 Jun 2017, 15:46 (9 years ago) parentf489011
8 files changed+30−30
compare with master
unifiedsplit
examples/StarWars.hs+1−1 generic-records.cabal+6−6 src/Data/Generic/Internal/Lens.hs → src/Data/Generics/Internal/Lens.hs+2−2 src/Data/Generic/Product/HasFieldAt.hs → src/Data/Generics/Product/HasFieldAt.hs+4−4 src/Data/Generic/Record.hs → src/Data/Generics/Record.hs+4−4 src/Data/Generic/Record/HasField.hs → src/Data/Generics/Record/HasField.hs+5−5 src/Data/Generic/Record/Internal/Contains.hs → src/Data/Generics/Record/Internal/Contains.hs+2−2 src/Data/Generic/Record/Subtype.hs → src/Data/Generics/Record/Subtype.hs+6−6
examples/StarWars.hs+1−1
@@ -10,7 +10,7 @@
1010module StarWars where
1111
1212import GHC.Generics
13−import Data.Generic.Record
13+import Data.Generics.Record
1414
1515data Episode = NEWHOPE | EMPIRE | JEDI
1616 deriving (Generic, Show, Eq)
generic-records.cabal+6−6
@@ -29,13 +29,13 @@ cabal-version: >= 1.10
2929
3030
3131library
32− exposed-modules: Data.Generic.Record
33− , Data.Generic.Record.Subtype
34− , Data.Generic.Record.HasField
35− , Data.Generic.Product.HasFieldAt
36− , Data.Generic.Internal.Lens
32+ exposed-modules: Data.Generics.Record
33+ , Data.Generics.Record.Subtype
34+ , Data.Generics.Record.HasField
35+ , Data.Generics.Product.HasFieldAt
36+ , Data.Generics.Internal.Lens
3737
38− other-modules: Data.Generic.Record.Internal.Contains
38+ other-modules: Data.Generics.Record.Internal.Contains
3939
4040 other-extensions: AllowAmbiguousTypes
4141 , DataKinds
src/Data/Generic/Internal/Lens.hs → src/Data/Generics/Internal/Lens.hsrenamed+2−2
@@ -3,7 +3,7 @@
33
44-----------------------------------------------------------------------------
55-- |
6−-- Module : Data.Generic.Internal.Lens
6+-- Module : Data.Generics.Internal.Lens
77-- Copyright : (C) 2017 Csongor Kiss
88-- License : BSD3
99-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -13,7 +13,7 @@
1313-- Internal lens helpers. Only exported for Haddock
1414--
1515-----------------------------------------------------------------------------
16−module Data.Generic.Internal.Lens where
16+module Data.Generics.Internal.Lens where
1717
1818import Control.Applicative ( Const (..) )
1919import GHC.Generics ( (:*:) (..), Generic (..), M1 (..), Rep )
src/Data/Generic/Product/HasFieldAt.hs → src/Data/Generics/Product/HasFieldAt.hsrenamed+4−4
@@ -12,7 +12,7 @@
1212
1313-----------------------------------------------------------------------------
1414-- |
15−-- Module : Data.Generic.Product.HasFieldAt
15+-- Module : Data.Generics.Product.HasFieldAt
1616-- Copyright : (C) 2017 Csongor Kiss
1717-- License : BSD3
1818-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -26,7 +26,7 @@
2626-- module Example where
2727--
2828-- import GHC.Generics
29−-- import Data.Generic.Product
29+-- import Data.Generics.Product
3030--
3131-- data Human = Human String Int String
3232-- deriving (Generic, Show)
@@ -38,14 +38,14 @@
3838--
3939-----------------------------------------------------------------------------
4040
41−module Data.Generic.Product.HasFieldAt
41+module Data.Generics.Product.HasFieldAt
4242 ( HasFieldAt (..)
4343 -- * Getter and setter functions
4444 , getFieldAt
4545 , setFieldAt
4646 ) where
4747
48−import Data.Generic.Internal.Lens
48+import Data.Generics.Internal.Lens
4949
5050import GHC.TypeLits
5151import Data.Kind (Type)
src/Data/Generic/Record.hs → src/Data/Generics/Record.hsrenamed+4−4
@@ -1,6 +1,6 @@
11-----------------------------------------------------------------------------
22-- |
3−-- Module : Data.Generic.Record
3+-- Module : Data.Generics.Record
44-- Copyright : (C) 2017 Csongor Kiss
55-- License : BSD3
66-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -14,7 +14,7 @@
1414-- be derived (see examples).
1515--
1616-----------------------------------------------------------------------------
17−module Data.Generic.Record
17+module Data.Generics.Record
1818 (
1919 -- * Subtype relationship
2020 Subtype (..)
@@ -28,5 +28,5 @@ module Data.Generic.Record
2828
2929 ) where
3030
31−import Data.Generic.Record.HasField
32−import Data.Generic.Record.Subtype
31+import Data.Generics.Record.HasField
32+import Data.Generics.Record.Subtype
src/Data/Generic/Record/HasField.hs → src/Data/Generics/Record/HasField.hsrenamed+5−5
@@ -12,7 +12,7 @@
1212
1313-----------------------------------------------------------------------------
1414-- |
15−-- Module : Data.Generic.Record.HasField
15+-- Module : Data.Generics.Record.HasField
1616-- Copyright : (C) 2017 Csongor Kiss
1717-- License : BSD3
1818-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -23,7 +23,7 @@
2323--
2424-----------------------------------------------------------------------------
2525
26−module Data.Generic.Record.HasField
26+module Data.Generics.Record.HasField
2727 ( -- * Lens
2828 -- $example
2929 HasField (..)
@@ -34,9 +34,9 @@ module Data.Generic.Record.HasField
3434 , GHasField (..)
3535 ) where
3636
37−import Data.Generic.Record.Internal.Contains
37+import Data.Generics.Record.Internal.Contains
3838
39−import Data.Generic.Internal.Lens
39+import Data.Generics.Internal.Lens
4040
4141import GHC.TypeLits (Symbol)
4242import Data.Kind (Type)
@@ -49,7 +49,7 @@ import GHC.Generics
4949-- module Example where
5050--
5151-- import GHC.Generics
52−-- import Data.Generic.Record
52+-- import Data.Generics.Record
5353--
5454-- data Human = Human
5555-- { name :: String
src/Data/Generic/Record/Internal/Contains.hs → src/Data/Generics/Record/Internal/Contains.hsrenamed+2−2
@@ -12,7 +12,7 @@
1212
1313-----------------------------------------------------------------------------
1414-- |
15−-- Module : Data.Generic.Record.Internal.Contains
15+-- Module : Data.Generics.Record.Internal.Contains
1616-- Copyright : (C) 2017 Csongor Kiss
1717-- License : BSD3
1818-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -22,7 +22,7 @@
2222-- Look up fields in the generic representation
2323--
2424-----------------------------------------------------------------------------
25−module Data.Generic.Record.Internal.Contains
25+module Data.Generics.Record.Internal.Contains
2626 ( Contains
2727 ) where
2828
src/Data/Generic/Record/Subtype.hs → src/Data/Generics/Record/Subtype.hsrenamed+6−6
@@ -12,7 +12,7 @@
1212
1313-----------------------------------------------------------------------------
1414-- |
15−-- Module : Data.Generic.Record.Subtype
15+-- Module : Data.Generics.Record.Subtype
1616-- Copyright : (C) 2017 Csongor Kiss
1717-- License : BSD3
1818-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -28,7 +28,7 @@
2828-- module Test where
2929--
3030-- import GHC.Generics
31−-- import Data.Generic.Record
31+-- import Data.Generics.Record
3232--
3333-- data Human = Human
3434-- { name :: String
@@ -47,15 +47,15 @@
4747-- @
4848--
4949-----------------------------------------------------------------------------
50−module Data.Generic.Record.Subtype
50+module Data.Generics.Record.Subtype
5151 ( Subtype (..)
5252 , subtype
5353 ) where
5454
55−import Data.Generic.Record.HasField
56−import Data.Generic.Record.Internal.Contains
55+import Data.Generics.Record.HasField
56+import Data.Generics.Record.Internal.Contains
5757
58−import Data.Generic.Internal.Lens
58+import Data.Generics.Internal.Lens
5959
6060import Data.Kind (Type)
6161import GHC.Generics