From f0718589df2cef815cfef40f8ea6eb6a5fc671ec Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 23 Jan 2009 06:15:27 +0000 Subject: .gfo files in binary format --- src/GF/Grammar/Binary.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/GF/Grammar') diff --git a/src/GF/Grammar/Binary.hs b/src/GF/Grammar/Binary.hs index 46069d7c3..cb2690425 100644 --- a/src/GF/Grammar/Binary.hs +++ b/src/GF/Grammar/Binary.hs @@ -10,6 +10,7 @@ module GF.Grammar.Binary where import Data.Binary +import qualified Data.Map as Map import qualified Data.ByteString.Char8 as BS import GF.Data.Operations @@ -260,3 +261,8 @@ instance Binary Label where instance Binary MetaSymb where put (MetaSymb m) = put m get = fmap MetaSymb get + +decodeModHeader :: FilePath -> IO SourceModule +decodeModHeader fpath = do + (m,mtype,mstatus,flags,extend,mwith,opens) <- decodeFile fpath + return (m,ModInfo mtype mstatus flags extend mwith opens Map.empty Map.empty) -- cgit v1.2.3