From 80a6150610182eefa0deb1f0932d3b780456ca09 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 11 Oct 2024 23:30:56 +0200
Subject: use backend REST library for frontend

---
 backend/app/Route.hs | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

(limited to 'backend/app/Route.hs')

diff --git a/backend/app/Route.hs b/backend/app/Route.hs
index 61fa699..59c5342 100644
--- a/backend/app/Route.hs
+++ b/backend/app/Route.hs
@@ -3,19 +3,11 @@ module Route (Route (..), parser) where
 import Data.Attoparsec.Char8 qualified as P
 
 data Route
-  = SchemaJson String
-  | Query
-  | SchemaVersion
-  | Collections
+  = Query
   deriving (Show)
 
 parser :: P.Parser Route
 parser =
-  ( P.choice
-      [ pure Collections <* P.string "/collections",
-        pure SchemaVersion <* P.string "/schemaVersion",
-        SchemaJson <$> (P.string "/" *> P.manyTill P.anyChar (P.string ".schema.json")),
-        pure Query <* P.string "/"
-      ]
-  )
+  pure Query
+    <* P.string "/"
     <* P.endOfInput
-- 
cgit v1.2.3