module Routes where

import Web.Scotty

data Route
  = RIndex
  | RSettings
  | RLogout
  | RRecent
  | RQuery [QueryData]
    deriving (Eq, Show)

data QueryData
  = QTag String
  | QType String

route :: Route -> RoutePattern
route stuff = regex ("^/" ++ stuff ++ "/?$")