Skip to content

Commit f77a7e7

Browse files
author
Tom Sydney Kerckhove
committed
Move the package into a dir for it
1 parent 82af756 commit f77a7e7

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

41 files changed

+438
-696
lines changed

ChangeLog.md

-3
This file was deleted.

Setup.hs

-3
This file was deleted.

coverage.overlay

-165
This file was deleted.

default.nix

+2
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,9 @@
11
let
2+
pkgs = import ./nix/pkgs.nix;
23
nix-pre-commit-hooks = import (builtins.fetchTarball "https://github.com/cachix/pre-commit-hooks.nix/tarball/master");
34
in
45
{
6+
openapi3-code-generator = pkgs.haskellPackages.openapi3-code-generator;
57
pre-commit-check = nix-pre-commit-hooks.run {
68
src = ./.;
79
hooks = {

nix/overlay.nix

+1-1
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@ in
2121
(
2222
self: super:
2323
{
24-
openapi3-code-generator = final.haskellPackages.callCabal2nix "openapi3-code-generator" (final.gitignoreSource ../.) { };
24+
openapi3-code-generator = final.haskellPackages.callCabal2nix "openapi3-code-generator" (final.gitignoreSource ../openapi3-code-generator) { };
2525
}
2626
);
2727
}
File renamed without changes.
File renamed without changes.

openapi3-code-generator.cabal renamed to openapi3-code-generator/openapi3-code-generator.cabal

+2-4
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,10 @@
11
cabal-version: 1.12
22

3-
-- This file has been generated from package.yaml by hpack version 0.33.0.
3+
-- This file has been generated from package.yaml by hpack version 0.34.2.
44
--
55
-- see: https://github.com/sol/hpack
66
--
7-
-- hash: 86db47bbf34607b1b63da475684e8f3ad50f4199434c6dfdb1fd8526d0e3c01d
7+
-- hash: 2c9baa547ea20206f8e472e0e4f9ff734130ea57706161cab7392ab633117890
88

99
name: openapi3-code-generator
1010
version: 0.1.0.6
@@ -20,8 +20,6 @@ license: MIT
2020
license-file: LICENSE
2121
build-type: Simple
2222
extra-source-files:
23-
README.md
24-
ChangeLog.md
2523
LICENSE
2624

2725
source-repository head

package.yaml renamed to openapi3-code-generator/package.yaml

-2
Original file line numberDiff line numberDiff line change
@@ -10,8 +10,6 @@ maintainer: Joel Fisch <[email protected]> & Remo Dörig <remo.doe
1010
copyright: "2020 Remo Dörig & Joel Fisch"
1111

1212
extra-source-files:
13-
- README.md
14-
- ChangeLog.md
1513
- LICENSE
1614

1715
description: Please see the README on GitHub at <https://github.com/Haskell-OpenAPI-Code-Generator/Haskell-OpenAPI-Client-Code-Generator#readme>

src/OpenAPI/Common.hs renamed to openapi3-code-generator/src/OpenAPI/Common.hs

+20-22
Original file line numberDiff line numberDiff line change
@@ -38,8 +38,8 @@ import qualified Data.ByteString.Lazy.Char8 as LB8
3838
import qualified Data.HashMap.Strict as HMap
3939
import qualified Data.Maybe as Maybe
4040
import qualified Data.Scientific as Scientific
41-
import qualified Data.Text as T
4241
import Data.Text (Text)
42+
import qualified Data.Text as T
4343
import qualified Data.Time.LocalTime as Time
4444
import qualified Data.Vector as Vector
4545
import qualified Network.HTTP.Client as HC
@@ -97,11 +97,10 @@ runWithConfiguration c (StripeT r) = MR.runReaderT r c
9797
--
9898
-- > defaultConfiguration
9999
-- > { configSecurityScheme = bearerAuthenticationSecurityScheme "token" }
100-
data Configuration
101-
= Configuration
102-
{ configBaseURL :: Text,
103-
configSecurityScheme :: SecurityScheme
104-
}
100+
data Configuration = Configuration
101+
{ configBaseURL :: Text,
102+
configSecurityScheme :: SecurityScheme
103+
}
105104

106105
-- | Defines how a request body is encoded
107106
data RequestBodyEncoding
@@ -111,13 +110,12 @@ data RequestBodyEncoding
111110
RequestBodyEncodingFormData
112111

113112
-- | Defines a query parameter with the information necessary for serialization
114-
data QueryParameter
115-
= QueryParameter
116-
{ queryParamName :: Text,
117-
queryParamValue :: Maybe Aeson.Value,
118-
queryParamStyle :: Text,
119-
queryParamExplode :: Bool
120-
}
113+
data QueryParameter = QueryParameter
114+
{ queryParamName :: Text,
115+
queryParamValue :: Maybe Aeson.Value,
116+
queryParamStyle :: Text,
117+
queryParamExplode :: Bool
118+
}
121119
deriving (Show, Eq)
122120

123121
-- | This type specifies a security scheme which can modify a request according to the scheme (e. g. add an Authorization header)
@@ -214,12 +212,12 @@ createBaseRequest ::
214212
-- | The Response from the server
215213
HS.Request
216214
createBaseRequest config method path queryParams =
217-
configSecurityScheme config
218-
$ HS.setRequestMethod (textToByte method)
219-
$ HS.setRequestQueryString query
220-
$ HS.setRequestPath
221-
(B8.pack (T.unpack $ byteToText basePathModifier <> path))
222-
baseRequest
215+
configSecurityScheme config $
216+
HS.setRequestMethod (textToByte method) $
217+
HS.setRequestQueryString query $
218+
HS.setRequestPath
219+
(B8.pack (T.unpack $ byteToText basePathModifier <> path))
220+
baseRequest
223221
where
224222
baseRequest = parseURL $ configBaseURL config
225223
basePath = HC.path baseRequest
@@ -275,9 +273,9 @@ textToByte = B8.pack . T.unpack
275273

276274
parseURL :: Text -> HS.Request
277275
parseURL url =
278-
Maybe.fromMaybe HS.defaultRequest
279-
$ HS.parseRequest
280-
$ T.unpack url
276+
Maybe.fromMaybe HS.defaultRequest $
277+
HS.parseRequest $
278+
T.unpack url
281279

282280
jsonToFormData :: Aeson.Value -> [(Text, Text)]
283281
jsonToFormData = jsonToFormDataPrefixed ""

src/OpenAPI/Generate/Doc.hs renamed to openapi3-code-generator/src/OpenAPI/Generate/Doc.hs

+10-9
Original file line numberDiff line numberDiff line change
@@ -297,12 +297,13 @@ createModuleHeaderWithReexports :: String -> [String] -> String -> Doc
297297
createModuleHeaderWithReexports moduleName modulesToExport description =
298298
let exports = vcat $ fmap (text . ("module " <>) . (<> ",")) modulesToExport
299299
imports = vcat $ fmap (text . ("import " <>)) modulesToExport
300-
in generatorNote $ moduleDescription description $
301-
text ("module " <> moduleName <> " (")
302-
$$ nest
303-
2
304-
( exports
305-
$$ text ") where"
306-
)
307-
$$ text ""
308-
$$ imports
300+
in generatorNote $
301+
moduleDescription description $
302+
text ("module " <> moduleName <> " (")
303+
$$ nest
304+
2
305+
( exports
306+
$$ text ") where"
307+
)
308+
$$ text ""
309+
$$ imports

0 commit comments

Comments
 (0)