From ec04f9118c5da8b03373cde4a48a419f4f64ece7 Mon Sep 17 00:00:00 2001 From: hallgren Date: Thu, 1 Mar 2012 16:33:32 +0000 Subject: [PATCH] WebSetup.hs: avoid ? wildcards because of odd behaviour under Win32 There is some discussion here: http://www.xxcopy.com/xxcopy18.htm --- WebSetup.hs | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/WebSetup.hs b/WebSetup.hs index fb3cad595..eb75b090e 100644 --- a/WebSetup.hs +++ b/WebSetup.hs @@ -17,8 +17,18 @@ import Distribution.Simple.LocalBuildInfo(datadir,buildDir,absoluteInstallDirs) -} example_grammars = -- :: [(pgf, tmp, src)] - [("Foods.pgf","foods","contrib""summerschool""foods""Foods???.gf"), - ("Letter.pgf","letter","examples""letter""Letter???.gf")] + [("Foods.pgf","foods",foodsSrc), + ("Letter.pgf","letter",letterSrc)] + where + foodsDir ="contrib""summerschool""foods" + --foodsSrc = foodsDir"Foods???.gf" -- doesn't work on Win32 + foodsSrc = unwords [foodsDir"Foods"++lang++".gf"|lang<-foodsLangs] + foodsLangs = words "Afr Amh Bul Cat Cze Dut Eng Epo Fin Fre Ger Gle Heb Hin Ice Ita Jpn Lav Mlt Mon Nep Pes Por Ron Spa Swe Tha Tsn Tur Urd" + + letterDir = "examples""letter" + --letterSrc = letterDir"Letter???.gf" + letterSrc = unwords [letterDir"Letter"++lang++".gf"|lang<-letterLangs] + letterLangs = words "Eng Fin Fre Heb Rus Swe" installWeb gf args flags pki lbi = setupWeb gf args dest pki lbi