mirror of
https://github.com/juspay/jrec.git
synced 2024-09-11 10:25:32 +03:00
parent
9649572445
commit
d976477eb2
@ -37,4 +37,4 @@ Run tests inside ghcid using `bin/test`.
|
|||||||
|
|
||||||
## Acknowledgement
|
## 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).
|
||||||
|
@ -21,8 +21,8 @@ library
|
|||||||
hs-source-dirs: src
|
hs-source-dirs: src
|
||||||
exposed-modules:
|
exposed-modules:
|
||||||
JRec
|
JRec
|
||||||
|
JRec.Internal
|
||||||
other-modules:
|
other-modules:
|
||||||
JRec.Super
|
|
||||||
JRec.Tuple
|
JRec.Tuple
|
||||||
JRec.Field
|
JRec.Field
|
||||||
|
|
||||||
|
@ -24,8 +24,8 @@ import GHC.OverloadedLabels
|
|||||||
import GHC.TypeLits
|
import GHC.TypeLits
|
||||||
import Generic.Data
|
import Generic.Data
|
||||||
import JRec.Field
|
import JRec.Field
|
||||||
import JRec.Super (Rec, (:=) (..))
|
import JRec.Internal (Rec, (:=) (..))
|
||||||
import qualified JRec.Super as R
|
import qualified JRec.Internal as R
|
||||||
import JRec.Tuple
|
import JRec.Tuple
|
||||||
import Unsafe.Coerce
|
import Unsafe.Coerce
|
||||||
|
|
||||||
|
@ -23,7 +23,7 @@
|
|||||||
-- export a lot of good things, and it was easier to just copy the
|
-- export a lot of good things, and it was easier to just copy the
|
||||||
-- implementation since we don't need much out of it.
|
-- implementation since we don't need much out of it.
|
||||||
|
|
||||||
module JRec.Super where
|
module JRec.Internal where
|
||||||
|
|
||||||
import Control.DeepSeq
|
import Control.DeepSeq
|
||||||
import Control.Monad.Reader
|
import Control.Monad.Reader
|
@ -2,7 +2,7 @@
|
|||||||
-- TODO: Import this script, and make it generate 'JRec' instead of 'Record'
|
-- TODO: Import this script, and make it generate 'JRec' instead of 'Record'
|
||||||
module JRec.Tuple where
|
module JRec.Tuple where
|
||||||
import Prelude
|
import Prelude
|
||||||
import qualified JRec.Super as R
|
import qualified JRec.Internal as R
|
||||||
import Unsafe.Coerce
|
import Unsafe.Coerce
|
||||||
class RecTuple tuple fields | tuple -> fields, fields -> tuple where
|
class RecTuple tuple fields | tuple -> fields, fields -> tuple where
|
||||||
fromTuple :: tuple -> R.Rec fields
|
fromTuple :: tuple -> R.Rec fields
|
||||||
|
Loading…
Reference in New Issue
Block a user