Revert to GET with query param

Author: pete-murphy

server/Main.hs

@@ -120,7 +120,6 @@ buildMakeActions codegenRef =
   outputPrimDocs :: Make.Make ()
   outputPrimDocs = pure ()
 
-
 server :: [P.ExternsFile] -> P.Env -> P.Environment -> Int -> String -> IO ()
 server externs initNamesEnv initEnv port pursIDEPortString = do
   codegenRef <- IORef.newIORef Nothing
@@ -166,9 +165,24 @@ server externs initNamesEnv initEnv port pursIDEPortString = do
         Right (warnings, comp) ->
           Scotty.json $ A.object [ "js" .= comp, "warnings" .= warnings ]
 
-    post "/complete" $ do
+    get "/complete" $ do
+      query <- param "q"
       Scotty.setHeader "Access-Control-Allow-Origin" "*"
       Scotty.setHeader "Content-Type" "application/json"
+      let mkCommand q = A.encode $ A.object
+                  [ "command" .= ("complete" :: Text)
+                  , "params" .= A.object 
+                    [ "filters" .= A.Array
+                      ( V.fromList 
+                        [ A.object
+                          [ "filter" .= ("prefix" :: Text) 
+                          , "params" .= A.object
+                            [ "search" .= q ]
+                          ]
+                        ]
+                      )
+                    ]
+                  ]
       (Just handleIn, Just handleOut, _, _) <- liftIO $
         Process.createProcess_
           "purs-ide-client"
@@ -177,8 +191,7 @@ server externs initNamesEnv initEnv port pursIDEPortString = do
             , Process.std_out = Process.CreatePipe
             }
       liftIO (IO.hSetBuffering handleIn NoBuffering)
-      command <- BL.Char8.toStrict <$> body
-      liftIO (BS.Char8.hPutStrLn handleIn command)
+      liftIO (BL.Char8.hPutStrLn handleIn (mkCommand (query :: Text)))
       result <- liftIO (BS.hGetContents handleOut)
       Scotty.text (TL.fromStrict (T.decodeUtf8 result))
 
@@ -265,6 +278,6 @@ main = do
   case e of
     Left err -> print err >> exitFailure
     Right (exts, namesEnv, env) -> do
-      let ideServer = Process.proc "purs" ("ide":"server":"-p":pursIDEPortString:inputGlobs)
-      Process.withCreateProcess ideServer $
+      let pursIDEServer = Process.proc "purs" ("ide":"server":"-p":pursIDEPortString:inputGlobs)
+      Process.withCreateProcess pursIDEServer $
         \_ _ _ _ -> server exts namesEnv env port pursIDEPortString