backend/app/Route.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module Route (Route (..), parser) where

import Data.Attoparsec.Char8 qualified as P

data Route
  = Query
  deriving (Show)

parser :: P.Parser Route
parser =
  pure Query
    <* P.string "/"
    <* P.endOfInput