Something went wrong. Try again.
A Haskell Webserver Template
Something went wrong. Try again.
780 B · 26 lines
Haskell
at main
123456789101112131415161718192021222324252627module Webserver.Data.Mode where
----------------------------------------------------------------------------------------------------
data Mode = Development | Production
deriving instance Eq Mode
deriving instance Show Mode
----------------------------------------------------------------------------------------------------
modeToString :: Mode -> StringmodeToString Development = "development"modeToString Production = "production"
modeFromString :: String -> ModemodeFromString "development" = DevelopmentmodeFromString "dev" = DevelopmentmodeFromString "d" = DevelopmentmodeFromString "production" = ProductionmodeFromString "prod" = ProductionmodeFromString "p" = ProductionmodeFromString _ = Development