{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}

module Sis.Route (AppRoute (..)) where

import GHC.Generics (Generic)
import Web.Hyperbole.Route

data AppRoute
    = Home
    | RLogin
    | RSignup
    | RDashboard
    | RChores
    | RHousehold
    | RActivity
    | RSeed
    deriving stock (Eq, Generic, Show)

instance Route AppRoute where
    baseRoute = Just Home