llvm-general-pure 3.4.5.0 → 3.4.5.1
raw patch · 2 files changed
+8/−5 lines, 2 filesdep ~llvm-general-pure
Dependency ranges changed: llvm-general-pure
Files
llvm-general-pure.cabal view
@@ -1,5 +1,5 @@ name: llvm-general-pure-version: 3.4.5.0+version: 3.4.5.1 license: BSD3 license-file: LICENSE author: Benjamin S.Scarlet <fgthb0@greynode.net>@@ -23,7 +23,7 @@ type: git location: git://github.com/bscarlet/llvm-general.git branch: llvm-3.4- tag: pure-v3.4.5.0+ tag: pure-v3.4.5.1 library ghc-options: -fwarn-unused-imports@@ -79,7 +79,7 @@ HUnit >= 1.2.4.2, test-framework-quickcheck2 >= 0.3.0.1, QuickCheck >= 2.5.1.1,- llvm-general-pure == 3.4.5.0,+ llvm-general-pure == 3.4.5.1, containers >= 0.4.2.1, mtl >= 2.1.3 hs-source-dirs: test
src/LLVM/General/PrettyPrint.hs view
@@ -106,7 +106,8 @@ ("Data.Maybe", Nothing), ("Data.Either", Nothing), ("Data.Map", Just "Map"),- ("Data.Set", Just "Set")+ ("Data.Set", Just "Set"),+ ("GHC.Base", Nothing) ] -- | a terse 'PrefixScheme' for types in the AST, leaving most names unqualified.@@ -155,7 +156,9 @@ -- | print Haskell imports to define the correct prefixes for use with the output -- of a given 'PrefixScheme'. imports :: PrefixScheme -> String-imports (PrefixScheme p) = unlines . flip map (Map.toList p) $ \(mod, mAbbr) ->+imports (PrefixScheme p) = unlines [ "import " ++ maybe mod (\abbr -> "qualified " ++ mod ++ " as " ++ abbr) mAbbr+ | (mod, mAbbr) <- Map.toList p, mod /= "GHC.Base"+ ]