diff options
Diffstat (limited to 'Command/Assistant.hs')
| -rw-r--r-- | Command/Assistant.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Assistant.hs b/Command/Assistant.hs index 24cc3ec6c..eb2a4a500 100644 --- a/Command/Assistant.hs +++ b/Command/Assistant.hs @@ -55,8 +55,7 @@ autoStart = do ifM (doesFileExist autostartfile) ( do dirs <- lines <$> readFile autostartfile - programfile <- programFile - program <- catchDefaultIO (readFile programfile) "git-annex" + program <- readProgramFile when (null dirs) nothing forM_ dirs $ \d -> do putStrLn $ "git-annex autostart in " ++ d |