haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix compiler warning

Browse Source
This commit is contained in:
Greg Weber 2011-08-01 09:54:14 -07:00
parent b9b48273d7
commit 7a8e98158f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
yesod/scaffold/project.hs.cg
View File

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