839ef88 · jrec · git.iko.soy

jrec.cabal+3−3

compare with master

unifiedsplit

@@ -20,9 +20,9 @@ extra-source-files:

20library

21 hs-source-dirs: src

22 exposed-modules:

23− Rec

23+ JRec

24− Rec.Super

24+ JRec.Super

25− Rec.Tuple

25+ JRec.Tuple

26

27 default-extensions:

28 BlockArguments

src/Rec.hs → src/JRec.hsrenamed+5−5

@@ -2,7 +2,7 @@

2{-# LANGUAGE PatternSynonyms #-}

3{-# LANGUAGE TypeApplications #-}

4

5−module Rec

5+module JRec

6 ( Record,

7 pattern Record,

8 (:=:),

@@ -28,11 +28,11 @@ import GHC.Generics

28import GHC.OverloadedLabels

29import GHC.TypeLits

30import Generic.Data

31−import qualified Rec.Super as R

31+import qualified JRec.Super as R

32import Control.Lens ((&), (^.))

33−import Rec.Super ((:=))

33+import JRec.Super ((:=))

34−import Rec.Tuple

34+import JRec.Tuple

35−import Rec.Field

35+import JRec.Field

36import Test.Tasty.HUnit

37import Unsafe.Coerce

38

src/Rec/Field.hs → src/JRec/Field.hsrenamed+1−1

@@ -1,4 +1,4 @@

1−module Rec.Field where

1+module JRec.Field where

2

3import qualified Data.Generics.Labels as GL

4import qualified Data.Generics.Product.Fields as GL

src/Rec/Super.hs → src/JRec/Super.hsrenamed+1−1

@@ -23,7 +23,7 @@

23-- export a lot of good things, and it was easier to just copy the

24-- implementation since we don't need much out of it.

25

26−module Rec.Super where

26+module JRec.Super where

27

28import Control.DeepSeq

29import Control.Monad.Reader

src/Rec/Tuple.hs → src/JRec/Tuple.hsrenamed+2−2

@@ -1,8 +1,8 @@

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

3+module JRec.Tuple where

4import Prelude

5−import qualified Rec.Super as R

5+import qualified JRec.Super as R

6import Unsafe.Coerce

7class RecTuple tuple fields | tuple -> fields, fields -> tuple where

8 fromTuple :: tuple -> R.Rec fields