diff --git a/src/Data/Abstract/Address/Monovariant.hs b/src/Data/Abstract/Address/Monovariant.hs index 12384a46c..e40986e8c 100644 --- a/src/Data/Abstract/Address/Monovariant.hs +++ b/src/Data/Abstract/Address/Monovariant.hs @@ -9,7 +9,7 @@ import Data.Abstract.Name import qualified Data.Set as Set import Prologue --- | 'Monovariant' models using one address for a particular name. It trackes the set of values that a particular address takes and uses it's name to lookup in the store and only allocation if new. +-- | 'Monovariant' models using one address for a particular name. It tracks the set of values that a particular address takes and uses it's name to lookup in the store and only allocation if new. newtype Monovariant = Monovariant { unMonovariant :: Name } deriving (Eq, Ord) diff --git a/src/Data/Abstract/ScopeGraph.hs b/src/Data/Abstract/ScopeGraph.hs index 0b5d61dd8..0d2d8e71f 100644 --- a/src/Data/Abstract/ScopeGraph.hs +++ b/src/Data/Abstract/ScopeGraph.hs @@ -76,7 +76,7 @@ instance Ord AccessControl where (<=) Private _ = True (<=) _ Private = False - -- | Protected AccessControl is inbetween Private and Public in the order specification. + -- | Protected AccessControl is in between Private and Public in the order specification. -- Protected AccessControl "on the left" has access to Protected or Public AccessControls "on the right". (<=) Protected Public = True (<=) Protected Protected = True diff --git a/src/Language/Go/Assignment.hs b/src/Language/Go/Assignment.hs index 695856192..98dc1848f 100644 --- a/src/Language/Go/Assignment.hs +++ b/src/Language/Go/Assignment.hs @@ -661,6 +661,6 @@ manyTermsTill step end = manyTill (step <|> comment) end manyTerm :: Assignment Term -> Assignment [Term] manyTerm = many . term --- | Match a term and contextualize any comments preceeding or proceeding the term. +-- | Match a term and contextualize any comments preceding or proceeding the term. term :: Assignment Term -> Assignment Term term term' = contextualize comment term' <|> makeTerm1 <$> (Syntax.Context <$> some1 comment <*> emptyTerm) diff --git a/src/Rendering/TOC.hs b/src/Rendering/TOC.hs index 6ece8e880..a90a9f4fc 100644 --- a/src/Rendering/TOC.hs +++ b/src/Rendering/TOC.hs @@ -96,7 +96,7 @@ newtype DedupeKey = DedupeKey (T.Text, T.Text) deriving (Eq, Ord) -- different behaviors: -- 1. Identical entries are in the list. -- Action: take the first one, drop all subsequent. --- 2. Two similar entries (defined by a case insensitive comparision of their +-- 2. Two similar entries (defined by a case insensitive comparison of their -- identifiers) are in the list. -- Action: Combine them into a single Replaced entry. dedupe :: [Entry Declaration] -> [Entry Declaration]