language-dot 0.0.8 → 0.0.9
raw patch · 2 files changed
+28/−14 lines, 2 filesnew-uploader
Files
- language-dot.cabal +23/−13
- src/Language/Dot/Pretty.hs +5/−1
language-dot.cabal view
@@ -1,16 +1,16 @@ name: language-dot-version: 0.0.8+version: 0.0.9 category: Language synopsis: A library for the analysis and creation of Graphviz DOT files description: A library for the analysis and creation of Graphviz DOT files. author: Brian Lewis <brian@lorf.org>-maintainer: Brian Lewis <brian@lorf.org>+maintainer: Ben Gamari <ben@smart-cactus.org> copyright: (c) 2009 Galois, Inc. license: BSD3 license-file: LICENSE -cabal-version: >= 1.6-build-type: Custom+cabal-version: >= 1.8+build-type: Simple extra-source-files: src/test.hs@@ -20,8 +20,7 @@ default: True library- hs-source-dirs:- src+ hs-source-dirs: src exposed-modules: Language.Dot@@ -36,23 +35,34 @@ pretty == 1.* ghc-options: -Wall- if impl(ghc >= 6.8)- ghc-options: -fwarn-tabs +test-suite test+ type: exitcode-stdio-1.0+ main-is: test.hs+ hs-source-dirs: src+ ghc-options: -Wall+ cpp-options: -DTEST+ build-depends:+ base == 4.*,+ mtl == 1.* || == 2.*,+ parsec == 3.*,+ pretty == 1.*+ executable ppdot if flag(executable) buildable: True else buildable: False - hs-source-dirs:- src- main-is: ppdot.hs+ hs-source-dirs: src+ build-depends:+ base == 4.*,+ mtl == 1.* || == 2.*,+ parsec == 3.*,+ pretty == 1.* ghc-options: -Wall- if impl(ghc >= 6.8)- ghc-options: -fwarn-tabs source-repository head type: git
src/Language/Dot/Pretty.hs view
@@ -7,6 +7,7 @@ -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- +import Numeric import Text.PrettyPrint import Language.Dot.Syntax@@ -43,7 +44,7 @@ pp (NameId v) = text v pp (StringId v) = doubleQuotes (text v) pp (IntegerId v) = integer v- pp (FloatId v) = float v+ pp (FloatId v) = ffloat v pp (XmlId v) = langle <> pp v <> rangle instance PP Statement where@@ -129,3 +130,6 @@ langle = char '<' rangle = char '>' slash = char '/'++ffloat :: Float -> Doc+ffloat v = text (showFFloat Nothing v "")