diff options
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |