cbarrett · April 4, 2013 00:33
diff --git a/gistfile1.hs b/gistfile1.hs
 addDependentTree :: FilePath -> Bool -> Q ()
 addDependentTree p inclFile = do
  pwd <- runIO getCurrentDirectory
  let p' = if not inclFile then dropFileName p else p
  let paths = scanl (</>) pwd (splitDirectories p')
  mapM_ addDependentFile paths  -- We add every subdirectory along `p` in the hopes of catching any new files added therein
	addDependentTree :: FilePath -> Bool -> Q ()
	addDependentTree p inclFile = do
	pwd <- runIO getCurrentDirectory
	let p' = if not inclFile then dropFileName p else p
	let paths = scanl (</>) pwd (splitDirectories p')
	mapM_ addDependentFile paths -- We add every subdirectory along `p` in the hopes of catching any new files added therein