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.

Assistant/WebApp.hs

@@ -153,6 +153,6 @@ otherReposWidget = do
 listOtherRepos :: IO [(String, String)]
 listOtherRepos = do
 	f <- autoStartFile
-	dirs <- ifM (doesFileExist f) ( lines <$> readFile f, return [])
+	dirs <- nub <$> ifM (doesFileExist f) ( lines <$> readFile f, return [])
 	names <- mapM relHome dirs
 	return $ sort $ zip names dirs

Command/Assistant.hs

@@ -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

Command/WebApp.hs

@@ -75,7 +75,7 @@ startNoRepo = do
 
 autoStart :: FilePath -> IO ()
 autoStart autostartfile = do
-	dirs <- lines <$> readFile autostartfile
+	dirs <- nub . lines <$> readFile autostartfile
 	edirs <- filterM doesDirectoryExist dirs
 	case edirs of
 		[] -> firstRun -- what else can I do? Nothing works..