git.iko.soy/typeable/derive-api-th
on master help sign in
swap
0d723694 ahead, 0 behind
derive-api-th.cabal+34−33
since splitsnapshots
unifiedsplit
@@ -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>
2
6
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+homepage: https://github.com/typeable/derive-api-th#readme
7−bug-reports: https://github.com/typeable/derive-api-th/issues
8+bug-reports: https://github.com/typeable/derive-api-th/issues
8−author: Typeable
9+author: Typeable
9−maintainer: dima@typeable.io
10+maintainer: dima@typeable.io
10−copyright: 2022 Typeable LLC
11+copyright: 2022 Typeable LLC
11−license: BSD3
12+license: BSD3
12−license-file: LICENSE
13+license-file: LICENSE
13−build-type: Simple
14+build-type: Simple
14−extra-source-files:
15+extra-source-files: README.md
15− README.md
16
16
17source-repository head
17source-repository head
18− type: git
18+ type: git
19 location: https://github.com/typeable/derive-api-th
19 location: https://github.com/typeable/derive-api-th
20
20
21library
21library
22− exposed-modules:
22+ exposed-modules: Derive.API.TH
23− Derive.API.TH
24− other-modules:
25− Paths_derive_api_th
23+ other-modules: Paths_derive_api_th
26− hs-source-dirs:
24+ hs-source-dirs: src
27− src
28 build-depends:
25 build-depends:
26+ aeson
29− base >=4.7 && <5
27+ , base >=4.7 && <5
30− , aeson
31 , containers
28 , containers
32 , template-haskell
29 , template-haskell
33 , th-abstraction
30 , th-abstraction
31+
34− if !(impl(ghcjs) || arch(javascript))
32+ if !(impl(ghcjs) || arch(javascript) || arch(wasm32))
35 build-depends:
33 build-depends:
36− openapi3
34+ generic-arbitrary >=1.0
37− , generic-arbitrary
35+ , openapi3
38 , QuickCheck
36 , QuickCheck
37+
38+ cpp-options: -DBACKEND
39+
39− default-language: Haskell2010
40+ default-language: Haskell2010
40 default-extensions:
41 default-extensions:
41− BlockArguments
42+ BlockArguments
42− , DuplicateRecordFields
43+ DuplicateRecordFields
43− , NamedFieldPuns
44+ NamedFieldPuns
44− , RecordWildCards
45+ RecordWildCards
45− , StandaloneDeriving
46+ StandaloneDeriving
46− , TemplateHaskell
47+ TemplateHaskell
src/Derive/API/TH.hs+6−2
@@ -10,7 +10,7 @@ module Derive.API.TH
10 , derivingOptionsToJsonOptions
10 , derivingOptionsToJsonOptions
11 , deriveApiInstances
11 , deriveApiInstances
12 , deriveApiAndArbitraryInstances
12 , deriveApiAndArbitraryInstances
13−#ifndef ghcjs_HOST_OS
13+#ifdef BACKEND
14 , derivingOptionsToSchemaOptions
14 , derivingOptionsToSchemaOptions
15 , deriveToParamSchema
15 , deriveToParamSchema
16 , deriveToSchema
16 , deriveToSchema
@@ -61,10 +61,14 @@ deriveApiAndArbitraryInstances opts tname =
61#endif
61#endif
62
62
63#if MIN_VERSION_containers(0,6,6)
63#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)
65instance (Lift k, Lift a) => Lift (Map k a) where
65instance (Lift k, Lift a) => Lift (Map k a) where
66 liftTyped x = unsafeCodeCoerce (lift x)
66 liftTyped x = unsafeCodeCoerce (lift x)
67 lift m = [|M.fromList (M.toList m)|]
67 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)|]
68#else
72#else
69instance (Lift k, Lift a) => Lift (Map k a) where
73instance (Lift k, Lift a) => Lift (Map k a) where
70 lift m = [|M.fromList (M.toList m)|]
74 lift m = [|M.fromList (M.toList m)|]