git.iko.soy/generic-lens
on master help sign in
Data.Generic -> Data.Generics
a250876Csongor Kiss
examples/StarWars.hs+1−1
compare with master
unifiedsplit
@@ -10,7 +10,7 @@
10module StarWars where
10module StarWars where
11
11
12import GHC.Generics
12import GHC.Generics
13−import Data.Generic.Record
13+import Data.Generics.Record
14
14
15data Episode = NEWHOPE | EMPIRE | JEDI
15data Episode = NEWHOPE | EMPIRE | JEDI
16 deriving (Generic, Show, Eq)
16 deriving (Generic, Show, Eq)
generic-records.cabal+6−6
@@ -29,13 +29,13 @@ cabal-version: >= 1.10
29
29
30
30
31library
31library
32− exposed-modules: Data.Generic.Record
32+ exposed-modules: Data.Generics.Record
33− , Data.Generic.Record.Subtype
33+ , Data.Generics.Record.Subtype
34− , Data.Generic.Record.HasField
34+ , Data.Generics.Record.HasField
35− , Data.Generic.Product.HasFieldAt
35+ , Data.Generics.Product.HasFieldAt
36− , Data.Generic.Internal.Lens
36+ , Data.Generics.Internal.Lens
37
37
38− other-modules: Data.Generic.Record.Internal.Contains
38+ other-modules: Data.Generics.Record.Internal.Contains
39
39
40 other-extensions: AllowAmbiguousTypes
40 other-extensions: AllowAmbiguousTypes
41 , DataKinds
41 , DataKinds
src/Data/Generic/Internal/Lens.hs → src/Data/Generics/Internal/Lens.hsrenamed+2−2
@@ -3,7 +3,7 @@
3
3
4-----------------------------------------------------------------------------
4-----------------------------------------------------------------------------
5-- |
5-- |
6−-- Module : Data.Generic.Internal.Lens
6+-- Module : Data.Generics.Internal.Lens
7-- Copyright : (C) 2017 Csongor Kiss
7-- Copyright : (C) 2017 Csongor Kiss
8-- License : BSD3
8-- License : BSD3
9-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
9-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -13,7 +13,7 @@
13-- Internal lens helpers. Only exported for Haddock
13-- Internal lens helpers. Only exported for Haddock
14--
14--
15-----------------------------------------------------------------------------
15-----------------------------------------------------------------------------
16−module Data.Generic.Internal.Lens where
16+module Data.Generics.Internal.Lens where
17
17
18import Control.Applicative ( Const (..) )
18import Control.Applicative ( Const (..) )
19import GHC.Generics ( (:*:) (..), Generic (..), M1 (..), Rep )
19import GHC.Generics ( (:*:) (..), Generic (..), M1 (..), Rep )
src/Data/Generic/Product/HasFieldAt.hs → src/Data/Generics/Product/HasFieldAt.hsrenamed+4−4
@@ -12,7 +12,7 @@
12
12
13-----------------------------------------------------------------------------
13-----------------------------------------------------------------------------
14-- |
14-- |
15−-- Module : Data.Generic.Product.HasFieldAt
15+-- Module : Data.Generics.Product.HasFieldAt
16-- Copyright : (C) 2017 Csongor Kiss
16-- Copyright : (C) 2017 Csongor Kiss
17-- License : BSD3
17-- License : BSD3
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -26,7 +26,7 @@
26-- module Example where
26-- module Example where
27--
27--
28-- import GHC.Generics
28-- import GHC.Generics
29−-- import Data.Generic.Product
29+-- import Data.Generics.Product
30--
30--
31-- data Human = Human String Int String
31-- data Human = Human String Int String
32-- deriving (Generic, Show)
32-- deriving (Generic, Show)
@@ -38,14 +38,14 @@
38--
38--
39-----------------------------------------------------------------------------
39-----------------------------------------------------------------------------
40
40
41−module Data.Generic.Product.HasFieldAt
41+module Data.Generics.Product.HasFieldAt
42 ( HasFieldAt (..)
42 ( HasFieldAt (..)
43 -- * Getter and setter functions
43 -- * Getter and setter functions
44 , getFieldAt
44 , getFieldAt
45 , setFieldAt
45 , setFieldAt
46 ) where
46 ) where
47
47
48−import Data.Generic.Internal.Lens
48+import Data.Generics.Internal.Lens
49
49
50import GHC.TypeLits
50import GHC.TypeLits
51import Data.Kind (Type)
51import Data.Kind (Type)
src/Data/Generic/Record.hs → src/Data/Generics/Record.hsrenamed+4−4
@@ -1,6 +1,6 @@
1-----------------------------------------------------------------------------
1-----------------------------------------------------------------------------
2-- |
2-- |
3−-- Module : Data.Generic.Record
3+-- Module : Data.Generics.Record
4-- Copyright : (C) 2017 Csongor Kiss
4-- Copyright : (C) 2017 Csongor Kiss
5-- License : BSD3
5-- License : BSD3
6-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
6-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -14,7 +14,7 @@
14-- be derived (see examples).
14-- be derived (see examples).
15--
15--
16-----------------------------------------------------------------------------
16-----------------------------------------------------------------------------
17−module Data.Generic.Record
17+module Data.Generics.Record
18 (
18 (
19 -- * Subtype relationship
19 -- * Subtype relationship
20 Subtype (..)
20 Subtype (..)
@@ -28,5 +28,5 @@ module Data.Generic.Record
28
28
29 ) where
29 ) where
30
30
31−import Data.Generic.Record.HasField
31+import Data.Generics.Record.HasField
32−import Data.Generic.Record.Subtype
32+import Data.Generics.Record.Subtype
src/Data/Generic/Record/HasField.hs → src/Data/Generics/Record/HasField.hsrenamed+5−5
@@ -12,7 +12,7 @@
12
12
13-----------------------------------------------------------------------------
13-----------------------------------------------------------------------------
14-- |
14-- |
15−-- Module : Data.Generic.Record.HasField
15+-- Module : Data.Generics.Record.HasField
16-- Copyright : (C) 2017 Csongor Kiss
16-- Copyright : (C) 2017 Csongor Kiss
17-- License : BSD3
17-- License : BSD3
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -23,7 +23,7 @@
23--
23--
24-----------------------------------------------------------------------------
24-----------------------------------------------------------------------------
25
25
26−module Data.Generic.Record.HasField
26+module Data.Generics.Record.HasField
27 ( -- * Lens
27 ( -- * Lens
28 -- $example
28 -- $example
29 HasField (..)
29 HasField (..)
@@ -34,9 +34,9 @@ module Data.Generic.Record.HasField
34 , GHasField (..)
34 , GHasField (..)
35 ) where
35 ) where
36
36
37−import Data.Generic.Record.Internal.Contains
37+import Data.Generics.Record.Internal.Contains
38
38
39−import Data.Generic.Internal.Lens
39+import Data.Generics.Internal.Lens
40
40
41import GHC.TypeLits (Symbol)
41import GHC.TypeLits (Symbol)
42import Data.Kind (Type)
42import Data.Kind (Type)
@@ -49,7 +49,7 @@ import GHC.Generics
49-- module Example where
49-- module Example where
50--
50--
51-- import GHC.Generics
51-- import GHC.Generics
52−-- import Data.Generic.Record
52+-- import Data.Generics.Record
53--
53--
54-- data Human = Human
54-- data Human = Human
55-- { name :: String
55-- { name :: String
src/Data/Generic/Record/Internal/Contains.hs → src/Data/Generics/Record/Internal/Contains.hsrenamed+2−2
@@ -12,7 +12,7 @@
12
12
13-----------------------------------------------------------------------------
13-----------------------------------------------------------------------------
14-- |
14-- |
15−-- Module : Data.Generic.Record.Internal.Contains
15+-- Module : Data.Generics.Record.Internal.Contains
16-- Copyright : (C) 2017 Csongor Kiss
16-- Copyright : (C) 2017 Csongor Kiss
17-- License : BSD3
17-- License : BSD3
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -22,7 +22,7 @@
22-- Look up fields in the generic representation
22-- Look up fields in the generic representation
23--
23--
24-----------------------------------------------------------------------------
24-----------------------------------------------------------------------------
25−module Data.Generic.Record.Internal.Contains
25+module Data.Generics.Record.Internal.Contains
26 ( Contains
26 ( Contains
27 ) where
27 ) where
28
28
src/Data/Generic/Record/Subtype.hs → src/Data/Generics/Record/Subtype.hsrenamed+6−6
@@ -12,7 +12,7 @@
12
12
13-----------------------------------------------------------------------------
13-----------------------------------------------------------------------------
14-- |
14-- |
15−-- Module : Data.Generic.Record.Subtype
15+-- Module : Data.Generics.Record.Subtype
16-- Copyright : (C) 2017 Csongor Kiss
16-- Copyright : (C) 2017 Csongor Kiss
17-- License : BSD3
17-- License : BSD3
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
18-- Maintainer : Csongor Kiss <kiss.csongor.kiss@gmail.com>
@@ -28,7 +28,7 @@
28-- module Test where
28-- module Test where
29--
29--
30-- import GHC.Generics
30-- import GHC.Generics
31−-- import Data.Generic.Record
31+-- import Data.Generics.Record
32--
32--
33-- data Human = Human
33-- data Human = Human
34-- { name :: String
34-- { name :: String
@@ -47,15 +47,15 @@
47-- @
47-- @
48--
48--
49-----------------------------------------------------------------------------
49-----------------------------------------------------------------------------
50−module Data.Generic.Record.Subtype
50+module Data.Generics.Record.Subtype
51 ( Subtype (..)
51 ( Subtype (..)
52 , subtype
52 , subtype
53 ) where
53 ) where
54
54
55−import Data.Generic.Record.HasField
55+import Data.Generics.Record.HasField
56−import Data.Generic.Record.Internal.Contains
56+import Data.Generics.Record.Internal.Contains
57
57
58−import Data.Generic.Internal.Lens
58+import Data.Generics.Internal.Lens
59
59
60import Data.Kind (Type)
60import Data.Kind (Type)
61import GHC.Generics
61import GHC.Generics