nub the autostart file

It's possible for the file to get duplicate lines in it, and if so, we want
to ignore the dups.
This commit is contained in:
Joey Hess 2012-10-14 15:19:34 -04:00
parent 04a69b22b1
commit 51ef707a59
3 changed files with 3 additions and 3 deletions

View file

@ -54,7 +54,7 @@ autoStart = do
let nothing = error $ "Nothing listed in " ++ autostartfile
ifM (doesFileExist autostartfile)
( do
dirs <- lines <$> readFile autostartfile
dirs <- nub . lines <$> readFile autostartfile
program <- readProgramFile
when (null dirs) nothing
forM_ dirs $ \d -> do