ByteString.readFile should be used instead of readFileStrict. This fixes the problem with the open files

2008-04-17 12:56:46 +00:00
parent 07900af066
commit 4a8346086d
4 changed files with 31 additions and 29 deletions
--- a/src/GF/Devel/GetGrammar.hs
+++ b/src/GF/Devel/GetGrammar.hs
@@ -34,6 +34,7 @@ import GF.Devel.ReadFiles ----

 import Data.Char (toUpper)
 import Data.List (nub)
+import qualified Data.ByteString.Char8 as BS
 import Control.Monad (foldM)
 import System (system)