From 43235a7135f8edfcf88d73fd5bdb40f9b0263b7b Mon Sep 17 00:00:00 2001
From: Karl Ostmo <kostmo@gmail.com>
Date: Wed, 3 Jul 2024 22:41:59 -0700
Subject: [PATCH] fix several typos

---
 CHANGELOG.md    | 6 +++---
 src/Graphmod.hs | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 94207d9..2069f1c 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -28,7 +28,7 @@
     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
@@ -36,7 +36,7 @@
   - Render `{-# SOURCE #-}` imports specially.
 
 * Version 1.2.7
-  Correct the prunning logic.
+  Correct the pruning logic.
 
 * Version 1.2.6
 
@@ -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
 
diff --git a/src/Graphmod.hs b/src/Graphmod.hs
index 2edb7f2..db78bd0 100644
--- a/src/Graphmod.hs
+++ b/src/Graphmod.hs
@@ -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!
 
@@ -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
@@ -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)"