{-# LANGUAGE DeriveDataTypeable, TemplateHaskell #-}
module Clckwrks.Admin.URL where

import Data.Data           (Data, Typeable)
import Data.SafeCopy       (base, deriveSafeCopy)
import Web.Routes.TH       (derivePathInfo)

data AdminURL
    = Console
    | EditSettings
    | EditNavBar
    | NavBarPost
      deriving (Eq, Ord, Read, Show, Data, Typeable)

$(derivePathInfo ''AdminURL)
$(deriveSafeCopy 2 'base ''AdminURL)