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/Shell.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/Shell.hs') diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index b884534bd..1d723bc62 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -70,6 +70,7 @@ import Data.Maybe (fromMaybe) import GF.System.Signal (runInterruptibly) import System.Exit (exitFailure) +import System.FilePath ---- import qualified GrammarToGramlet as Gr ---- import qualified GrammarToCanonXML2 as Canon @@ -192,7 +193,7 @@ execLine put (c@(co, os), arg, cs) (outps,st) = do execC :: CommandOpt -> ShellIO execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case comm of - CImport file | fileSuffix file == "gfwl" -> do + CImport file | takeExtensions file == ".gfwl" -> do fs <- mkWordlist file foldM (\x y -> execC (CImport y, opts) x) sa fs -- cgit v1.2.3