llvm-pretty 0.2.0.0 → 0.3.0.0

raw patch · 3 files changed

+5/−1 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Text.LLVM.AST: defSection :: Define -> Maybe String

- Text.LLVM: (:>) :: a -> b -> (:>) a b

+ Text.LLVM: (:>) :: a -> b -> :> a b

- Text.LLVM.AST: Define :: FunAttrs -> Type -> Symbol -> [Typed Ident] -> Bool -> [BasicBlock] -> Define

+ Text.LLVM.AST: Define :: FunAttrs -> Type -> Symbol -> [Typed Ident] -> Bool -> Maybe String -> [BasicBlock] -> Define

Files

llvm-pretty.cabal +1/−1
src/Text/LLVM.hs +2/−0
src/Text/LLVM/AST.hs +2/−0

llvm-pretty.cabal view

@@ -1,5 +1,5 @@ Name:                llvm-pretty-Version:             0.2.0.0+Version:             0.3.0.0 License:             BSD3 License-file:        LICENSE Author:              Trevor Elliott

src/Text/LLVM.hs view

@@ -237,6 +237,7 @@     , defArgs    = args     , defVarArgs = False     , defBody    = body+    , defSection = Nothing     }   let fnty = PtrTo (FunTy rty (map typedType args) False)   return (Typed fnty (ValSymbol fun))@@ -262,6 +263,7 @@     , defArgs    = args     , defVarArgs = va     , defBody    = snd (runBB (k (map (fmap toValue) args)))+    , defSection = Nothing     }   let fnty = PtrTo (FunTy rty sig False)   return (Typed fnty (ValSymbol sym))

src/Text/LLVM/AST.hs view

@@ -530,6 +530,7 @@   , defName    :: Symbol   , defArgs    :: [Typed Ident]   , defVarArgs :: Bool+  , defSection :: Maybe String   , defBody    :: [BasicBlock]   } deriving (Show) @@ -539,6 +540,7 @@          <+> ppType (defRetType d)          <+> ppSymbol (defName d)           <> ppArgList (defVarArgs d) (map (ppTyped ppIdent) (defArgs d))+         <+> ppMaybe (\s  -> text "section" <+> doubleQuotes (text s)) (defSection d)          <+> ppMaybe (\gc -> text "gc" <+> ppGC gc) (funGC (defAttrs d))          <+> char '{'          $+$ vcat (map ppBasicBlock (defBody d))