From fc111c1a7910ab4a2a1bf40c0473bbaacadedd61 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 22 Apr 2008 11:39:46 +0000 Subject: use the standard System.FilePath module instead of our own broken file path manipulation functions --- src/GF.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF.hs') diff --git a/src/GF.hs b/src/GF.hs index 1d2651767..50afeb8e9 100644 --- a/src/GF.hs +++ b/src/GF.hs @@ -35,6 +35,7 @@ import GF.Text.UTF8 import GF.Today (today,version,libdir) import GF.System.Arch import System (getArgs,system,getEnv) +import System.FilePath import Control.Monad (foldM,liftM) import Data.List (nub) @@ -106,7 +107,7 @@ main = do mkConcretes os es doGF (removeOption fromExamples os) fs -- preprocessing gfwl - else if (length fs == 1 && fileSuffix (head fs) == "gfwl") + else if (length fs == 1 && takeExtensions (head fs) == ".gfwl") then do fs' <- mkWordlist (head fs) doGF os fs' -- cgit v1.2.3