From f098617665306c51a0ea956bb4f184a600b9bd0d Mon Sep 17 00:00:00 2001
From: Gabor Greif <ggreif@gmail.com>
Date: Sat, 9 Apr 2022 13:40:11 +0100
Subject: [PATCH] Fix typos (#40)

typos
---
 src/Control/Category/Free.hs          | 2 +-
 src/Control/Category/Free/Internal.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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.
 --