git.iko.soy/jrec
on master help sign in
Record -> Rec

To match package name

commitaf4c3ffb0d983cfa7bc9639dbfcc4589398e94ef authorSridhar Ratnakumar <srid@srid.ca> dateWed 29 Jul 2020, 21:19 (6 years ago) parent0fd1d85
5 files changed+15−14
compare with master
unifiedsplit
rec.cabal+3−3 src/Record.hs → src/Rec.hs+6−6 src/Record/Field.hs → src/Rec/Field.hs+1−1 src/Record/Super.hs → src/Rec/Super.hs+1−1 src/Record/Tuple.hs → src/Rec/Tuple.hs+4−3
rec.cabal+3−3
@@ -20,9 +20,9 @@ extra-source-files:
2020library
2121 hs-source-dirs: src
2222 exposed-modules:
23− Record
24− Record.Super
25− Record.Tuple
23+ Rec
24+ Rec.Super
25+ Rec.Tuple
2626
2727 default-extensions:
2828 BlockArguments
src/Record.hs → src/Rec.hsrenamed+6−6
@@ -2,7 +2,7 @@
22{-# LANGUAGE PatternSynonyms #-}
33{-# LANGUAGE TypeApplications #-}
44
5−module Record
5+module Rec
66 ( Record,
77 pattern Record,
88 (:=:),
@@ -28,11 +28,11 @@ import GHC.Generics
2828import GHC.OverloadedLabels
2929import GHC.TypeLits
3030import Generic.Data
31−import qualified Record.Super as R
31+import qualified Rec.Super as R
3232import Control.Lens ((&), (^.))
33−import Record.Super ((:=))
34−import Record.Tuple
35−import Record.Field
33+import Rec.Super ((:=))
34+import Rec.Tuple
35+import Rec.Field
3636import Test.Tasty.HUnit
3737import Unsafe.Coerce
3838
@@ -96,7 +96,7 @@ type family Sels fields where
9696
9797type RecordRep fields =
9898 D1
99− ('MetaData "Record" "Record" "" 'False)
99+ ('MetaData "Record" "Rec" "" 'False)
100100 ( C1
101101 ('MetaCons "Record" 'PrefixI 'True)
102102 (Sels fields)
src/Record/Field.hs → src/Rec/Field.hsrenamed+1−1
@@ -1,4 +1,4 @@
1−module Record.Field where
1+module Rec.Field where
22
33import qualified Data.Generics.Labels as GL
44import qualified Data.Generics.Product.Fields as GL
src/Record/Super.hs → src/Rec/Super.hsrenamed+1−1
@@ -23,7 +23,7 @@
2323-- export a lot of good things, and it was easier to just copy the
2424-- implementation since we don't need much out of it.
2525
26−module Record.Super where
26+module Rec.Super where
2727
2828import Control.DeepSeq
2929import Control.Monad.Reader
src/Record/Tuple.hs → src/Rec/Tuple.hsrenamed+4−3
@@ -1,7 +1,8 @@
1−-- Generated with cabal run -v0 bin/genrecord > src/Record/Tuple.hs
2−module Record.Tuple where
1+-- Generated with cabal run -v0 bin/genrecord > src/Rec/Tuple.hs
2+-- TODO: Import this script, and make it generate 'Rec' instead of 'Record'
3+module Rec.Tuple where
34import Prelude
4−import qualified Record.Super as R
5+import qualified Rec.Super as R
56import Unsafe.Coerce
67class RecTuple tuple fields | tuple -> fields, fields -> tuple where
78 fromTuple :: tuple -> R.Rec fields