From c8310cf17c312701aad71823dac18ff58d97d674 Mon Sep 17 00:00:00 2001 From: hallgren Date: Tue, 4 Feb 2014 13:36:16 +0000 Subject: [PATCH] GFC.hs: encodeFile_ is not available in the standard Data.Binary --- src/compiler/GFC.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/compiler/GFC.hs b/src/compiler/GFC.hs index 6e4c50258..acb4e21ab 100644 --- a/src/compiler/GFC.hs +++ b/src/compiler/GFC.hs @@ -18,7 +18,8 @@ import GF.Data.ErrM import GF.System.Directory import Data.Maybe -import Data.Binary +import Data.Binary(encode,encodeFile) +import Data.Binary.Put(runPut) import qualified Data.Map as Map import qualified Data.ByteString as BSS import qualified Data.ByteString.Lazy as BSL @@ -130,7 +131,8 @@ writePGF :: Options -> PGF -> IOE () writePGF opts pgf | flag optSplitPGF opts = do let outfile = grammarName opts pgf <.> "pgf" putPointE Normal opts ("Writing " ++ outfile ++ "...") $ liftIO $ do - encodeFile_ outfile (putSplitAbs pgf) + --encodeFile_ outfile (putSplitAbs pgf) + BSL.writeFile outfile (runPut (putSplitAbs pgf)) forM_ (Map.toList (concretes pgf)) $ \cnc -> do let outfile = showCId (fst cnc) <.> "pgf_c" putPointE Normal opts ("Writing " ++ outfile ++ "...") $ liftIO $ encodeFile outfile cnc