rest-gen 0.13 → 0.13.1

raw patch · 4 files changed

+11/−3 lines, 4 files

Files

CHANGELOG.md +5/−0
rest-gen.cabal +1/−1
src/Rest/Gen/Haskell/Generate.hs +1/−2
src/Rest/Gen/Types.hs +4/−0

CHANGELOG.md view

@@ -1,5 +1,10 @@ # Changelog +### 0.13.1++* Derive `Eq, Show` for all types in `Rest.Gen.Types`+* Haskell: Nub generated imports+ ## 0.13  Breaking changes:

rest-gen.cabal view

@@ -1,5 +1,5 @@ name:                rest-gen-version:             0.13+version:             0.13.1 description:         Documentation and client generation from rest definition. synopsis:            Documentation and client generation from rest definition. maintainer:          code@silk.co

src/Rest/Gen/Haskell/Generate.hs view

@@ -112,8 +112,7 @@  mkImports :: HaskellContext -> ApiResource -> [ModuleName] -> Code mkImports ctx node datImp-  = mkStack-  . map (rewriteImport $ rewrites ctx)+  = mkStack . nub . map (rewriteImport $ rewrites ctx)   $    [Import UnQualified (ModuleName "Rest.Client.Internal") Nothing Nothing]     ++ extraImports     ++ parentImports

src/Rest/Gen/Types.hs view

@@ -21,6 +21,7 @@ overModuleName f = ModuleName . f . unModuleName  newtype Name = Name { unName :: String }+  deriving (Eq, Show)  instance Codeable Name where   code = code . unName@@ -28,12 +29,14 @@ data QName   = Qual ModuleName Name   | UnQual Name+  deriving (Eq, Show)  instance Codeable QName where   code (UnQual n) = code n   code (Qual m n) = code m <+> "." <+> code n  data Qualification = Qualified | UnQualified+  deriving (Eq, Show)  instance Codeable Qualification where   code Qualified   = code "qualified"@@ -41,6 +44,7 @@  data Import   = Import Qualification ModuleName (Maybe ModuleName) (Maybe [QName])+  deriving (Eq, Show)  instance Codeable Import where   code i = case i of