diff options
| -rw-r--r-- | Command/Assistant.hs | 2 | ||||
| -rw-r--r-- | Command/WebApp.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/Assistant.hs b/Command/Assistant.hs index 53f7e4baf..b039e2731 100644 --- a/Command/Assistant.hs +++ b/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 diff --git a/Command/WebApp.hs b/Command/WebApp.hs index 205e36341..f87ea983a 100644 --- a/Command/WebApp.hs +++ b/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.. |