Query all records

1 files changed, 8 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) ]