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