Permalink
Browse files

Change default of one argument to be the working dir

  • Loading branch information...
1 parent cdfffe8 commit ba85582722239979efa10669d37767814df2bafb @kolmodin kolmodin committed Jul 18, 2008
Showing with 1 addition and 1 deletion.
  1. +1 −1 Main.hs
View
@@ -45,7 +45,7 @@ main = do
let (packages_file, wd) =
case args of
[] -> (Nothing, ".")
- [pf] -> (Just pf, ".")
+ [wd] -> (Nothing, wd)
[pf,wd] -> (Just pf, wd)
packages <-
case packages_file of

0 comments on commit ba85582

Please sign in to comment.