diff --git a/Events/EventDuration.hs b/Events/EventDuration.hs
index 93822b04..a252b76b 100644
--- a/Events/EventDuration.hs
+++ b/Events/EventDuration.hs
@@ -17,9 +17,9 @@ import GHC.RTS.Events hiding (Event, GCIdle, GCWork)
 import qualified GHC.RTS.Events as GHC
 
 -------------------------------------------------------------------------------
--- This datastructure is a duration-based representation of the event
--- loginformation where thread-runs and GCs are explicitly represented
--- by a single constructor identifying their start and end points.
+-- This data structure is a duration-based representation of the eventlog
+-- information where thread-runs and GCs are explicitly represented by a
+-- single constructor identifying their start and end points.
 
 data EventDuration
   = ThreadRun {-#UNPACK#-}!ThreadId
diff --git a/GUI/App.hs b/GUI/App.hs
index 60a6bec8..a01cbcd8 100644
--- a/GUI/App.hs
+++ b/GUI/App.hs
@@ -9,6 +9,6 @@ module GUI.App (initApp) where
 -------------------------------------------------------------------------------
 
 -- | Initialize application
--- Perform application initialization for non-Mac OS X platforms
+-- Perform application initialization for non-macOS platforms
 initApp :: IO ()
 initApp = return ()
diff --git a/GUI/DataFiles.hs b/GUI/DataFiles.hs
index fffb6072..dd82a49a 100644
--- a/GUI/DataFiles.hs
+++ b/GUI/DataFiles.hs
@@ -21,7 +21,7 @@ uiFile = "threadscope.ui"
 logoFile :: FilePath
 logoFile = "threadscope.png"
 
--- | Textual representaion of the UI file
+-- | Textual representation of the UI file
 ui :: Q Exp
 ui = [| TE.decodeUtf8 $(makeRelativeToProject uiFile >>= embedFile) |]
 
diff --git a/GUI/Timeline.hs b/GUI/Timeline.hs
index 64b1130d..24302f73 100644
--- a/GUI/Timeline.hs
+++ b/GUI/Timeline.hs
@@ -331,7 +331,7 @@ viewRangeToTimeRange view (x, x') = do
     return (xv, xv')
 
 -------------------------------------------------------------------------------
--- Update the internal state and the timemline view after changing which
+-- Update the internal state and the timeline view after changing which
 -- traces are displayed, or the order of traces.
 
 queueRedrawTimelines :: TimelineState -> IO ()
diff --git a/GUI/Timeline/Render.hs b/GUI/Timeline/Render.hs
index e7786388..546b93f3 100644
--- a/GUI/Timeline/Render.hs
+++ b/GUI/Timeline/Render.hs
@@ -170,7 +170,7 @@ drawSelection vp@ViewParameters{height} (RangeSelection x x') = do
 -------------------------------------------------------------------------------
 
 -- We currently have two different way of converting from logical units
--- (ie timestamps in micro-seconds) to device units (ie pixels):
+-- (i.e. timestamps in micro-seconds) to device units (i.e. pixels):
 --   * the first is to set the cairo context to the appropriate scale
 --   * the second is to do the conversion ourself
 --
@@ -450,7 +450,7 @@ showTrace _ TraceActivity =
   "Activity"
 showTrace _ TraceGroup{} = error "Render.showTrace"
 
--- | Calcaulate the maximal Y value for a graph-like trace, or Nothing.
+-- | Calculate the maximal Y value for a graph-like trace, or Nothing.
 traceMaxSpark :: Double -> Double -> Double -> Trace -> Maybe Double
 traceMaxSpark maxS _ _ TraceCreationHEC{}   = Just $ maxS * 1000
 traceMaxSpark maxS _ _ TraceConversionHEC{} = Just $ maxS * 1000
diff --git a/GUI/Timeline/Render/Constants.hs b/GUI/Timeline/Render/Constants.hs
index a5ca3951..c13d4674 100644
--- a/GUI/Timeline/Render/Constants.hs
+++ b/GUI/Timeline/Render/Constants.hs
@@ -18,7 +18,7 @@ ox = 10
 firstTraceY :: Int
 firstTraceY = 13
 
--- Gap betweem traces in the timeline view
+-- Gap between traces in the timeline view
 
 tracePad :: Int
 tracePad = 20
diff --git a/GUI/Timeline/Ticks.hs b/GUI/Timeline/Ticks.hs
index 99e3d5dd..3424e881 100644
--- a/GUI/Timeline/Ticks.hs
+++ b/GUI/Timeline/Ticks.hs
@@ -86,7 +86,7 @@ renderXScaleArea ViewParameters{width, scaleValue, hadjValue, xScaleAreaHeight}
 data XScaleMode = XScaleTime | XScaleLog Double Double deriving Eq
 
 -- | Render the X (vertical) scale: render X axis and call ticks rendering.
--- TODO: refactor common parts with renderVRulers, in particlar to expose
+-- TODO: refactor common parts with renderVRulers, in particular to expose
 -- that ruler positions match tick positions.
 renderXScale :: Double -> Double -> Timestamp -> Int
              -> (Int -> Int) -> XScaleMode
diff --git a/papers/haskell_symposium_2009/sumEuler/SumEuler1.hs b/papers/haskell_symposium_2009/sumEuler/SumEuler1.hs
index 3b52cc51..dfbaf1e9 100644
--- a/papers/haskell_symposium_2009/sumEuler/SumEuler1.hs
+++ b/papers/haskell_symposium_2009/sumEuler/SumEuler1.hs
@@ -1,5 +1,5 @@
 -------------------------------------------------------------------------------
--- This demonstrates that f `par` (f + e) does not result in parallelsim.
+-- This demonstrates that f `par` (f + e) does not result in parallelism.
 
 module Main
 where
diff --git a/tests/ParFib.hs b/tests/ParFib.hs
index 1f6b9a3a..5a26a63d 100644
--- a/tests/ParFib.hs
+++ b/tests/ParFib.hs
@@ -9,7 +9,7 @@ import Control.Parallel
 import System.Mem
 
 -------------------------------------------------------------------------------
--- A purely sequential implementaiton of fib.
+-- A purely sequential implementation of fib.
 
 seqFib :: Int -> Integer
 seqFib 0 = 1
@@ -17,7 +17,7 @@ seqFib 1 = 1
 seqFib n = seqFib (n-1) + seqFib (n-2)
 
 -------------------------------------------------------------------------------
--- A thresh-hold value below which the parallel implementation of fib
+-- A threshold value below which the parallel implementation of fib
 -- reverts to sequential implementation.
 
 threshHold :: Int