GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

WebSetup.hs: don't output messages that lie about what's being installed

Browse Source
This commit is contained in:
Thomas Hallgren
2018-11-30 00:15:37 +01:00
parent 47c983c625
commit e0dca729d6
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
WebSetup.hs
View File

@@ -104,9 +104,10 @@ setupWeb dest (pkg,lbi) = do
copy_pgf (pgf,subdir,_) = copy_pgf (pgf,subdir,_) =
do let src = gfo_dir </> pgf do let src = gfo_dir </> pgf
let dst = grammars_dir </> pgf let dst = grammars_dir </> pgf
putStrLn $ "Installing "++dst
ex <- doesFileExist src 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" gf_logo = "gf0.png"