From ba9c21a8bed56cff3b9f875463d98e53871d51d9 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 22 Jan 2018 22:42:28 -0800 Subject: Typos --- main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'main.hs') 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 -- cgit v1.2.3