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

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

data ProfileDataURL
    = CreateNewProfileData
    | EditProfileData
    | EditNewProfileData
    | EditProfileDataFor UserId
      deriving (Eq, Ord, Read, Show, Data, Typeable)

$(derivePathInfo ''ProfileDataURL)
$(deriveSafeCopy 1 'base ''ProfileDataURL)