language-vhdl 0.1.2.3 → 0.1.2.4

raw patch · 3 files changed

+13/−6 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Language.VHDL.Syntax: type ContextClause = [ContextItem]

- Language.VHDL.Syntax: type DesignFile = [DesignUnit]

+ Language.VHDL.Pretty: instance Language.VHDL.Pretty.Pretty Language.VHDL.Syntax.ContextClause

+ Language.VHDL.Pretty: instance Language.VHDL.Pretty.Pretty Language.VHDL.Syntax.DesignFile

+ Language.VHDL.Syntax: ContextClause :: [ContextItem] -> ContextClause

+ Language.VHDL.Syntax: DesignFile :: [DesignUnit] -> DesignFile

+ Language.VHDL.Syntax: data ContextClause

+ Language.VHDL.Syntax: data DesignFile

+ Language.VHDL.Syntax: instance GHC.Classes.Eq Language.VHDL.Syntax.ContextClause

+ Language.VHDL.Syntax: instance GHC.Classes.Eq Language.VHDL.Syntax.DesignFile

+ Language.VHDL.Syntax: instance GHC.Show.Show Language.VHDL.Syntax.ContextClause

+ Language.VHDL.Syntax: instance GHC.Show.Show Language.VHDL.Syntax.DesignFile

language-vhdl.cabal view

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                language-vhdl-version:             0.1.2.3+version:             0.1.2.4 synopsis:            VHDL AST and pretty printer in Haskell. -- description:          license:             BSD3

src/Language/VHDL/Pretty.hs view

@@ -317,6 +317,9 @@   pp (CRange r) = pp r   pp (CIndex i) = pp i +instance Pretty ContextClause where+  pp (ContextClause items) = vcat $ fmap pp items+ instance Pretty ContextItem where   pp (ContextLibrary l) = pp l   pp (ContextUse u)     = pp u@@ -341,8 +344,11 @@   pp (DMechTransport)  = text "TRANSPORT"   pp (DMechInertial e) = condL (text "REJECT") e <+> text "INERTIAL" +instance Pretty DesignFile where+  pp (DesignFile units) = vcat $ fmap pp units+ instance Pretty DesignUnit where-  pp (DesignUnit ctxt lib) = pp ctxt <+> pp lib+  pp (DesignUnit ctxt lib) = vcat [pp ctxt, pp lib]  instance Pretty Designator where   pp (DId i) = pp i@@ -889,7 +895,7 @@   pp (SecondaryUnitDeclaration i p) = pp i <+> equals <+> pp p  instance Pretty SelectedName where-  pp (SelectedName p s) = pp p <+> char '.' <+> pp s+  pp (SelectedName p s) = pp p <> char '.' <> pp s  instance Pretty SelectedSignalAssignment where   pp (SelectedSignalAssignment e t o w) =

src/Language/VHDL/Syntax.hs view

@@ -2645,8 +2645,8 @@       | package_body -} --type DesignFile = [DesignUnit]+data DesignFile = DesignFile [DesignUnit]+  deriving (Eq, Show)  data DesignUnit = DesignUnit ContextClause LibraryUnit   deriving (Eq, Show)@@ -2697,7 +2697,8 @@       | use_clause -} -type ContextClause = [ContextItem]+data ContextClause = ContextClause [ContextItem]+  deriving (Eq, Show)  data ContextItem =     ContextLibrary LibraryClause