use the standard System.FilePath module instead of our own broken file path manipulation functions

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