diff --git a/src/Control/Category/Free.hs b/src/Control/Category/Free.hs
index 292ebf2..ca55e47 100644
--- a/src/Control/Category/Free.hs
+++ b/src/Control/Category/Free.hs
@@ -37,7 +37,7 @@ module Control.Category.Free
     , foldlQ
     , zipWithQ
 
-      -- * Type alligned list
+      -- * Type aligned list
     , ListTr (..)
     , liftL
     , foldNatL
diff --git a/src/Control/Category/Free/Internal.hs b/src/Control/Category/Free/Internal.hs
index bc34b43..0676c79 100644
--- a/src/Control/Category/Free/Internal.hs
+++ b/src/Control/Category/Free/Internal.hs
@@ -268,7 +268,7 @@ instance ArrowChoice f => ArrowChoice (ListTr f) where
 --
 
 
--- | Type alligned real time queues; Based on `Purely Functinal Data Structures`
+-- | Type aligned real time queues; Based on `Purely Functinal Data Structures`
 -- C.Okasaki.  This the most reliably behaved implementation of free categories
 -- in this package.
 --