projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove magic flatten/unflatten identifiers
[coq-hetmet.git]
/
examples
/
GArrowTikZ.hs
diff --git
a/examples/GArrowTikZ.hs
b/examples/GArrowTikZ.hs
index
819ca1d
..
f3ad728
100644
(file)
--- a/
examples/GArrowTikZ.hs
+++ b/
examples/GArrowTikZ.hs
@@
-491,7
+491,7
@@
tikz :: forall c .
(PGArrow g (GArrowTensor g c c) c) ->
PGArrow g c c)
-> IO ()
(PGArrow g (GArrowTensor g c c) c) ->
PGArrow g c c)
-> IO ()
-tikz x = tikz' $ optimize $ unG (x (\c -> PGArrowD { unG = GAS_const c }) (PGArrowD { unG = GAS_merge }))
+tikz x = tikz' $ beautify $ optimize $ unG (x (\c -> PGArrowD { unG = GAS_const c }) (PGArrowD { unG = GAS_merge }))
tikz' example
= do putStrLn "\\documentclass{article}"
tikz' example
= do putStrLn "\\documentclass{article}"