1
1
mirror of https://github.com/juspay/jrec.git synced 2024-08-16 05:40:33 +03:00

Rename, and expose JRec.Internal

Resolves #6
This commit is contained in:
Sridhar Ratnakumar 2020-08-19 19:47:52 -04:00
parent 9649572445
commit d976477eb2
5 changed files with 6 additions and 6 deletions

View File

@ -37,4 +37,4 @@ Run tests inside ghcid using `bin/test`.
## Acknowledgement
* The `Rec.Super` module is entirely based on the code from [superrecord](https://hackage.haskell.org/package/superrecord).
* The `JRec.Internal` module is entirely based on the code from [superrecord](https://hackage.haskell.org/package/superrecord).

View File

@ -21,8 +21,8 @@ library
hs-source-dirs: src
exposed-modules:
JRec
JRec.Internal
other-modules:
JRec.Super
JRec.Tuple
JRec.Field

View File

@ -24,8 +24,8 @@ import GHC.OverloadedLabels
import GHC.TypeLits
import Generic.Data
import JRec.Field
import JRec.Super (Rec, (:=) (..))
import qualified JRec.Super as R
import JRec.Internal (Rec, (:=) (..))
import qualified JRec.Internal as R
import JRec.Tuple
import Unsafe.Coerce

View File

@ -23,7 +23,7 @@
-- export a lot of good things, and it was easier to just copy the
-- implementation since we don't need much out of it.
module JRec.Super where
module JRec.Internal where
import Control.DeepSeq
import Control.Monad.Reader

View File

@ -2,7 +2,7 @@
-- TODO: Import this script, and make it generate 'JRec' instead of 'Record'
module JRec.Tuple where
import Prelude
import qualified JRec.Super as R
import qualified JRec.Internal as R
import Unsafe.Coerce
class RecTuple tuple fields | tuple -> fields, fields -> tuple where
fromTuple :: tuple -> R.Rec fields