module Webserver.Data.Mode where

----------------------------------------------------------------------------------------------------

data Mode
  = Development
  | Production

deriving instance Eq Mode

deriving instance Show Mode

----------------------------------------------------------------------------------------------------

modeToString :: Mode -> String
modeToString Development = "development"
modeToString Production  = "production"

modeFromString :: String -> Mode
modeFromString "development" = Development
modeFromString "dev"         = Development
modeFromString "d"           = Development
modeFromString "production"  = Production
modeFromString "prod"        = Production
modeFromString "p"           = Production
modeFromString _             = Development