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