diff options
| author | stuebinm | 2022-03-19 20:20:20 +0100 |
|---|---|---|
| committer | stuebinm | 2022-03-19 20:21:14 +0100 |
| commit | 80cc9d0f70e98ff9b8aa78c86891d4a9bb4759d5 (patch) | |
| tree | 0c0151ebfa7b7b87b4906532b93452afb1dd39a8 /lib/Dirgraph.hs | |
| parent | dbf2253dc4256809b255767cbf4ae9c236f18542 (diff) | |
unbreak a very, very long rebase
Diffstat (limited to '')
| -rw-r--r-- | lib/Dirgraph.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Dirgraph.hs b/lib/Dirgraph.hs index fe9dc96..3fe1ce6 100644 --- a/lib/Dirgraph.hs +++ b/lib/Dirgraph.hs @@ -68,7 +68,7 @@ takeSubGraph i start graph graphToDot :: Graph FilePath -> Dot () graphToDot graph = do main <- D.node [("label","main.json")] - nodes' <- traverseMaybeWithKey + nodes' <- M.traverseMaybeWithKey (\name edges -> if name /= "main.json" then D.node [("label",name)] <&> (, edges) <&> Just else pure Nothing |