git.iko.soy/typeable/derive-api-th
on master help sign in
swap
0d723694 ahead, 0 behind
2 files changed+40−35
since splitsnapshots
unifiedsplit
derive-api-th.cabal+34−33 src/Derive/API/TH.hs+6−2
derive-api-th.cabal+34−33
@@ -1,46 +1,47 @@
1−cabal-version: 1.12
1+cabal-version: 1.12
2+name: derive-api-th
3+version: 0.1.0.0
4+description:
5+ Please see the README on GitHub at <https://github.com/typeable/derive-api-th#readme>
26
3−name: derive-api-th
4−version: 0.1.0.0
5−description: Please see the README on GitHub at <https://github.com/typeable/derive-api-th#readme>
6−homepage: https://github.com/typeable/derive-api-th#readme
7−bug-reports: https://github.com/typeable/derive-api-th/issues
8−author: Typeable
9−maintainer: dima@typeable.io
10−copyright: 2022 Typeable LLC
11−license: BSD3
12−license-file: LICENSE
13−build-type: Simple
14−extra-source-files:
15− README.md
7+homepage: https://github.com/typeable/derive-api-th#readme
8+bug-reports: https://github.com/typeable/derive-api-th/issues
9+author: Typeable
10+maintainer: dima@typeable.io
11+copyright: 2022 Typeable LLC
12+license: BSD3
13+license-file: LICENSE
14+build-type: Simple
15+extra-source-files: README.md
1616
1717source-repository head
18− type: git
18+ type: git
1919 location: https://github.com/typeable/derive-api-th
2020
2121library
22− exposed-modules:
23− Derive.API.TH
24− other-modules:
25− Paths_derive_api_th
26− hs-source-dirs:
27− src
22+ exposed-modules: Derive.API.TH
23+ other-modules: Paths_derive_api_th
24+ hs-source-dirs: src
2825 build-depends:
29− base >=4.7 && <5
30− , aeson
26+ aeson
27+ , base >=4.7 && <5
3128 , containers
3229 , template-haskell
3330 , th-abstraction
34− if !(impl(ghcjs) || arch(javascript))
31+
32+ if !(impl(ghcjs) || arch(javascript) || arch(wasm32))
3533 build-depends:
36− openapi3
37− , generic-arbitrary
34+ generic-arbitrary >=1.0
35+ , openapi3
3836 , QuickCheck
39− default-language: Haskell2010
37+
38+ cpp-options: -DBACKEND
39+
40+ default-language: Haskell2010
4041 default-extensions:
41− BlockArguments
42− , DuplicateRecordFields
43− , NamedFieldPuns
44− , RecordWildCards
45− , StandaloneDeriving
46− , TemplateHaskell
42+ BlockArguments
43+ DuplicateRecordFields
44+ NamedFieldPuns
45+ RecordWildCards
46+ StandaloneDeriving
47+ TemplateHaskell
src/Derive/API/TH.hs+6−2
@@ -10,7 +10,7 @@ module Derive.API.TH
1010 , derivingOptionsToJsonOptions
1111 , deriveApiInstances
1212 , deriveApiAndArbitraryInstances
13−#ifndef ghcjs_HOST_OS
13+#ifdef BACKEND
1414 , derivingOptionsToSchemaOptions
1515 , deriveToParamSchema
1616 , deriveToSchema
@@ -61,10 +61,14 @@ deriveApiAndArbitraryInstances opts tname =
6161#endif
6262
6363#if MIN_VERSION_containers(0,6,6)
64−#elif MIN_VERSION_template_haskell(2,16,0)
64+#elif MIN_VERSION_template_haskell(2,17,0)
6565instance (Lift k, Lift a) => Lift (Map k a) where
6666 liftTyped x = unsafeCodeCoerce (lift x)
6767 lift m = [|M.fromList (M.toList m)|]
68+#elif MIN_VERSION_template_haskell(2,16,0)
69+instance (Lift k, Lift a) => Lift (Map k a) where
70+ liftTyped x = unsafeTExpCoerce (lift x)
71+ lift m = [|M.fromList (M.toList m)|]
6872#else
6973instance (Lift k, Lift a) => Lift (Map k a) where
7074 lift m = [|M.fromList (M.toList m)|]