@@ -74,8 +74,8 @@ crawl summary args =
74 Args.Roots path [] ->
74 Args.Roots path [] ->
75 crawlHelp summary =<< Header.readOneFile summary path
75 crawlHelp summary =<< Header.readOneFile summary path
77− Args.Roots path paths ->
77+ Args.Roots p ps ->
78− do (h,hs) <- Header.readManyFiles summary path paths
78+ do (h,hs) <- Header.readManyFiles summary p ps
79 let unvisited = concatMap toUnvisited (h:hs)
79 let unvisited = concatMap toUnvisited (h:hs)
80 let graph = initWorkGraph (Args.Roots (fst h) (map fst hs)) (Map.fromList (h:hs))
80 let graph = initWorkGraph (Args.Roots (fst h) (map fst hs)) (Map.fromList (h:hs))
81 depthFirstSearch summary unvisited graph
81 depthFirstSearch summary unvisited graph