mirror of
https://github.com/aaronallen8455/graph-trace.git
synced 2024-09-11 09:05:34 +03:00
rename
This commit is contained in:
parent
3d151865ea
commit
4a6fff5f82
12
README.md
12
README.md
@ -1,7 +1,7 @@
|
||||
# Debugger Plugin
|
||||
# Graph Trace
|
||||
|
||||
A plugin that a creates a log file which can be compiled to a graph for display
|
||||
with `graphviz` or some other means. Contrary to traditional debug logging
|
||||
where all output is interleaved into a flat sequence of lines, the graph
|
||||
structure produced by this plugin takes into account the actual flow of the
|
||||
program with individual function calls represented as edges in the graph.
|
||||
A ghc plugin that a creates a log file which can be compiled to a graph for
|
||||
display with `graphviz` or some other means. Contrary to traditional debug
|
||||
tracing where all output is interleaved into a flat sequence of lines, the
|
||||
graph structure produced by this plugin takes into account the actual flow of
|
||||
the program with individual function calls represented as edges in the graph.
|
||||
|
18
exe/Main.hs
18
exe/Main.hs
@ -98,15 +98,15 @@ data T f =
|
||||
, t2 :: f String
|
||||
}
|
||||
|
||||
zzzz :: T FieldUpdate -> T Maybe -> T Maybe
|
||||
zzzz update orig =
|
||||
let updater :: (forall a. T a -> a x) -> Maybe x
|
||||
updater -- | let ?x = 1
|
||||
= mkUpdater update orig
|
||||
in MkT
|
||||
{ t1 = updater t1
|
||||
, t2 = updater t2
|
||||
}
|
||||
-- zzzz :: T FieldUpdate -> T Maybe -> T Maybe
|
||||
-- zzzz update orig =
|
||||
-- let updater :: (forall a. T a -> a x) -> Maybe x
|
||||
-- updater -- | let ?x = 1
|
||||
-- = mkUpdater update orig
|
||||
-- in MkT
|
||||
-- { t1 = updater t1
|
||||
-- , t2 = updater t2
|
||||
-- }
|
||||
|
||||
-- fzzz :: (?_debug_ip :: Maybe DebugIPTy) => T FieldUpdate -> T Maybe -> T Maybe
|
||||
-- fzzz update orig = entry $
|
||||
|
@ -1,6 +1,6 @@
|
||||
cabal-version: >=1.10
|
||||
|
||||
name: debug-plugin
|
||||
name: graph-trace
|
||||
version: 0.1.0.0
|
||||
-- synopsis:
|
||||
-- description:
|
||||
@ -38,15 +38,15 @@ executable exe
|
||||
other-modules: Class
|
||||
-- other-extensions:
|
||||
build-depends: base
|
||||
, debug-plugin
|
||||
, graph-trace
|
||||
, random
|
||||
-- hs-source-dirs:
|
||||
default-language: Haskell2010
|
||||
|
||||
executable debug-visualizer
|
||||
executable graph-trace-viz
|
||||
default-language: Haskell2010
|
||||
main-is: Main.hs
|
||||
build-depends: base
|
||||
, containers
|
||||
, bytestring
|
||||
hs-source-dirs: debug-visualizer
|
||||
hs-source-dirs: graph-trace-viz
|
2
run-exe
2
run-exe
@ -2,5 +2,5 @@
|
||||
rm debug_log.txt
|
||||
cabal v2-build
|
||||
cabal v2-exec exe
|
||||
cabal v2-exec debug-visualizer
|
||||
cabal v2-exec graph-trace-viz
|
||||
dot -Tsvg debug.dot > test.svg
|
||||
|
@ -172,7 +172,7 @@ modifyClsInstDecl debugNames nameMap
|
||||
pure inst { Ghc.cid_binds = newBinds }
|
||||
#if MIN_VERSION_ghc(9,0,0)
|
||||
#else
|
||||
modifyClsInstDecl _ _ _ _ x = pure x
|
||||
modifyClsInstDecl _ _ x = pure x
|
||||
#endif
|
||||
|
||||
-- | Matches on type signatures in order to add the constraint to them.
|
||||
|
Loading…
Reference in New Issue
Block a user