controlroom: replace servant/lucid with yesod

aka use something meant for webapps to write the webapp

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/API.hs b/lib/API.hs
index 9ed2846..9400187 100644
--- a/lib/API.hs
+++ b/lib/API.hs
@@ -19,7 +19,7 @@ import           Servant                     (Application, FormUrlEncoded,
                                               Server, err401, err404, type (:>))
 import           Servant.API                 (Capture, Get, JSON, NoContent,
                                               PlainText, Post, QueryParam,
-                                              ReqBody, type (:<|>) ((:<|>)))
+                                              ReqBody, type (:<|>) ((:<|>)), Raw)
 import           Servant.API.WebSocket       (WebSocket)
 import           Servant.GTFS.Realtime       (Proto)
 import           Servant.Swagger             (HasSwagger (..))
@@ -69,7 +69,7 @@ type AdminAPI =
 -- documented, which would be silly and way to verbose.
 type CompleteAPI = "debug" :> "openapi" :> Get '[JSON] Swagger
   :<|> API
-  :<|> "cr" :> ControlRoomAPI
+  :<|> "cr" :> Raw
 
 
 -- TODO write something useful here! (and if it's just "hey this is some websocket thingie")