Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

remove shadowing warning

  • Loading branch information...
commit 13b066490b31d31ca75453261eb1c4f19508e960 1 parent 9776402
@MarcWeber MarcWeber authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.