Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

fix several typos #46

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

fix several typos #46

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions CHANGELOG.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -28,15 +28,15 @@
name as a cluster will be rendered inside the cluster. One can tell
that the module is different because it will still have the color of
modules from the cluster "above". Also, the module has a border to
empahsize the difference.
emphasize the difference.
This behavior may be disabled using `--no-module-in-cluster`

* Version 1.2.9
- Support for Cabal: if we find a cabal file, we add all modules in it
- Render `{-# SOURCE #-}` imports specially.

* Version 1.2.7
Correct the prunning logic.
Correct the pruning logic.

* Version 1.2.6

Expand All @@ -45,7 +45,7 @@

* Version 1.2.5

Add support for pruning the dependecy graph.
Add support for pruning the dependency graph.

* Version 1.2.3

Expand Down
8 changes: 4 additions & 4 deletions src/Graphmod.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -85,7 +85,7 @@ noEdges = AllEdges { normalEdges = IMap.empty

graph :: Opts -> [Input] -> IO (AllEdges, Nodes)
graph opts inputs = fmap maybePrune $ mfix $ \ ~(_,mods) ->
-- NOTE: 'mods' is the final value of 'done' in the funciton 'loop'.
-- NOTE: 'mods' is the final value of 'done' in the function 'loop'.

let nodeFor x = lookupMod x mods -- Recursion happens here!

Expand Down Expand Up @@ -224,8 +224,8 @@ collapse _ _ ([],_) = Nothing
collapse opts (Trie.Sub ts mb) ([q],alsoMod') =
do t <- Map.lookup q ts
let alsoMod = alsoMod' || mod_in_cluster opts
-- if modules are moved in their sub-directory clsuter,
-- then we always want to collapse them, irrspective of the flag given
-- if modules are moved in their sub-directory cluster,
-- then we always want to collapse them, irrespective of the flag given


nestedMods = [ nm | Trie.Sub _ (Just xs) <- Map.elems ts
Expand Down Expand Up @@ -545,7 +545,7 @@ options =
"Remove imports if the module is imported by another imported module"

, Option ['d'] ["graph-dim"] (ReqArg set_size "SIZE,SIZE")
"Set dimensions of the graph. See the `size` attribute of graphvize."
"Set dimensions of the graph. See the `size` attribute of graphviz."

, Option ['s'] ["colors"] (ReqArg add_color_scheme "NUM")
"Choose a color scheme number (0-5)"
Expand Down