Permalink
Browse files

Lost a character when parsing more flags; add it back.

  • Loading branch information...
1 parent 195929e commit 0a6a7e2e872f667bcd2504f90321cf219b5aed4b @steveWang committed Aug 27, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/bifurcate.hs
View
@@ -26,7 +26,7 @@ printHelp = do
collect :: String -> [String] -> [IO Handle]
collect t [] = []
-collect t (('-' : hd) : tl) = parseArgs (hd : tl)
+collect t (('-' : hd) : tl) = parseArgs (('-' : hd) : tl)
collect t (hd : tl) = ((process t hd) : (collect t tl))
parseArgs :: [String] -> [IO Handle]

0 comments on commit 0a6a7e2

Please sign in to comment.