Typos

1 files changed, 2 insertions, 2 deletions

diff --git a/main.hs b/main.hs
index 14b896d..75d9cfd 100755
--- a/main.hs
+++ b/main.hs
@@ -54,13 +54,13 @@ data Database = Database [Caller]
 
 $(deriveSafeCopy 0 'base ''Database)
 
--- | Append the caller the database.
+-- | Cons the caller to database.
 addCaller :: Caller -> Update Database ()
 addCaller caller = do
   Database callers <- get
   put $ Database (caller:callers)
 
--- | Grab a subset of the callers
+-- | Grab a subset of the caller list.
 viewCallers :: Int -> Query Database [Caller]
 viewCallers limit = do
   Database callers <- ask