CoreDump 0.1.0.1 → 0.1.1.0
raw patch · 2 files changed
+7/−15 lines, 2 filesdep +prettydep +pretty-showdep −haskell-src-extsPVP ok
version bump matches the API change (PVP)
Dependencies added: pretty, pretty-show
Dependencies removed: haskell-src-exts
API changes (from Hackage documentation)
Files
- CoreDump.cabal +3/−2
- src/CoreDump.hs +4/−13
CoreDump.cabal view
@@ -1,5 +1,5 @@ name: CoreDump-version: 0.1.0.1+version: 0.1.1.0 synopsis: A GHC plugin for printing GHC's internal Core data structures.@@ -24,7 +24,8 @@ build-depends: base >= 4.8 && < 4.9, ghc >= 7.10 && < 8,- haskell-src-exts+ pretty,+ pretty-show hs-source-dirs: src default-language: Haskell2010 ghc-options: -Wall
src/CoreDump.hs view
@@ -6,8 +6,8 @@ import Data.List (intersperse) -- For pretty-printing-import Language.Haskell.Exts.Parser-import Language.Haskell.Exts.Pretty+import Text.Show.Pretty (ppDoc)+import Text.PrettyPrint import CoreDump.Show @@ -30,15 +30,6 @@ pluginPass :: ModGuts -> CoreM ModGuts pluginPass guts@ModGuts{ mg_binds = binds } = do- liftIO $ mapM_ putStrLn $ intersperse "" $ map showPretty binds+ liftIO $ mapM_ putStrLn $ intersperse "" $+ map (renderStyle (Style PageMode 100 1.0) . ppDoc) binds return guts--showPretty :: Show a => a -> String-showPretty a =- case parseExp s of- ParseOk x -> prettyPrint x- -- ParseFailed loc reason ->- -- trace ("parse failed: " ++ show (loc, reason)) s- ParseFailed{} -> s- where- s = show a