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