fix compiler warning

This commit is contained in:
Greg Weber 2011-08-01 09:54:14 -07:00
parent b9b48273d7
commit 7a8e98158f

View File

@ -28,6 +28,7 @@ main = do
data ArgConfig = ArgConfig {environment :: String, port :: Int}
deriving (Show, Data, Typeable)
argConfig :: ArgConfig
argConfig = ArgConfig{ environment = def
&= help ("application environment, one of: " ++ (foldl1 (\a b -> a ++ ", " ++ b) environments))
&= typ "ENVIRONMENT"