From fc111c1a7910ab4a2a1bf40c0473bbaacadedd61 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
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/Compile/Wordlist.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GF/Compile/Wordlist.hs')

diff --git a/src/GF/Compile/Wordlist.hs b/src/GF/Compile/Wordlist.hs
index d581ed683..3fbc066bd 100644
--- a/src/GF/Compile/Wordlist.hs
+++ b/src/GF/Compile/Wordlist.hs
@@ -18,6 +18,7 @@ import GF.Data.Operations
 import GF.Infra.UseIO
 import Data.List
 import Data.Char
+import System.FilePath
 
 -- read File.gfwl, write File.gf (abstract) and a set of concretes
 -- return the names of the concretes
@@ -25,7 +26,7 @@ import Data.Char
 mkWordlist :: FilePath -> IO [FilePath]
 mkWordlist file = do
   s <- readFileIf file
-  let abs = fileBody file
+  let abs = dropExtension file
   let (cnchs,wlist) = pWordlist abs $ filter notComment $ lines s
   let (gr,grs) = mkGrammars abs cnchs wlist
   let cncfs = [cnc ++ ".gf" | (cnc,_) <- cnchs]
-- 
cgit v1.2.3