Browse files

remove shadowing warning

  • Loading branch information...
1 parent 9776402 commit 13b066490b31d31ca75453261eb1c4f19508e960 @MarcWeber MarcWeber committed Jul 26, 2009
Showing with 2 additions and 2 deletions.
  1. +2 −2 server/Scion/Server/Commands.hs
View
4 server/Scion/Server/Commands.hs
@@ -482,8 +482,8 @@ cmdAddCmdLineFlag =
Cmd "add-command-line-flag" $
optArg' "flag" "" fromJSString <&>
optArg' "flags" [] (map fromJSString) $ cmd
- where cmd flag flags = do
- addCmdLineFlags $ (if flag == "" then [] else [flag]) ++ flags
+ where cmd flag flags' = do
+ addCmdLineFlags $ (if flag == "" then [] else [flag]) ++ flags'
return JSNull
cmdThingAtPoint :: Cmd

0 comments on commit 13b0664

Please sign in to comment.