diff options
| author | Thomas Hallgren <th-github@altocumulus.org> | 2018-11-30 00:15:37 +0100 |
|---|---|---|
| committer | Thomas Hallgren <th-github@altocumulus.org> | 2018-11-30 00:15:37 +0100 |
| commit | e0dca729d6d29ae8861d9616d5fa18b6871809e6 (patch) | |
| tree | a80e862ca99ff718f5744c17bffef55e8d2352b1 /WebSetup.hs | |
| parent | 47c983c625cc5df85c9dac197a472d33ea382f5c (diff) | |
WebSetup.hs: don't output messages that lie about what's being installed
Diffstat (limited to 'WebSetup.hs')
| -rw-r--r-- | WebSetup.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/WebSetup.hs b/WebSetup.hs index f6f76107d..fd55439b4 100644 --- a/WebSetup.hs +++ b/WebSetup.hs @@ -104,9 +104,10 @@ setupWeb dest (pkg,lbi) = do copy_pgf (pgf,subdir,_) = do let src = gfo_dir </> pgf let dst = grammars_dir </> pgf - putStrLn $ "Installing "++dst ex <- doesFileExist src - if ex then copyFile src dst else return () + if ex then do putStrLn $ "Installing "++dst + copyFile src dst + else putStrLn $ "Not installing "++dst gf_logo = "gf0.png" |