From 21c38acfb388f9141bada4b0e32d07dc580a344f Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 22 Jan 2018 23:16:31 -0800
Subject: Query all records

---
 main.hs   | 11 ++++++++---
 test.http |  5 +++++
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/main.hs b/main.hs
index 6d785c1..59c0b50 100755
--- a/main.hs
+++ b/main.hs
@@ -101,10 +101,15 @@ getQueryR :: Handler RepJson
 getQueryR = do
   qm <- lookupGetParam "number"
   case qm of
-    Nothing ->
-      sendStatusJSON status400 $ (ApiError "Invalid request. Could not parse 'number' parameter.")
+    Nothing -> do
+      app <- getYesod
+      let db = appState app
+      callers <- liftIO $ query db (ViewCallers 20)
+      sendStatusJSON status400 $ callers
 
-    Just q ->
+    Just q -> do
+      app <- getYesod
+      let db = appState app
       sendStatusJSON status200 $ object [ "msg" .= ("FIXME" :: Text) ]
 
 
diff --git a/test.http b/test.http
index 5827247..5425f9a 100644
--- a/test.http
+++ b/test.http
@@ -16,6 +16,11 @@ Content-Type: application/x-www-form-urlencoded
 GET :host/query?number=%2B15556789090
 :headers
 
+# should return all entries
+GET :host/query
+:headers
+
+
 # should return 200
 POST :host/number
 :headers
-- 
cgit v1.2.3