diff options
| author | hallgren <hallgren@chalmers.se> | 2014-06-12 14:43:18 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-06-12 14:43:18 +0000 |
| commit | d6252d1c16d59ad26db0d08a531cddf39864d9db (patch) | |
| tree | 93d4c2be28e430bb64a1cb2db22299b1b4b8afb7 /src/compiler/GF/Compile/GenerateBC.hs | |
| parent | 352ecb7eb89b3f427667c7c51f71812b619393af (diff) | |
PGF library: expose only PGF and PGF.Internal instead of all modules
PGF exports the public, stable API.
PGF.Internal exports additional things needed in the GF compiler & shell,
including the nonstardard version of Data.Binary.
Diffstat (limited to 'src/compiler/GF/Compile/GenerateBC.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GenerateBC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/GenerateBC.hs b/src/compiler/GF/Compile/GenerateBC.hs index 26d48380f..61605e3f8 100644 --- a/src/compiler/GF/Compile/GenerateBC.hs +++ b/src/compiler/GF/Compile/GenerateBC.hs @@ -2,13 +2,13 @@ module GF.Compile.GenerateBC(generateByteCode) where import GF.Grammar import GF.Compile.Instructions -import PGF.Data +import PGF.Internal(Binary(..),encode,BCAddr) import Data.Maybe import qualified Data.IntMap as IntMap import qualified Data.ByteString as BSS import qualified Data.ByteString.Lazy as BS -import Data.Binary +import PGF.Internal() generateByteCode :: [(QIdent,Info)] -> ([(QIdent,Info,BCAddr)], BSS.ByteString) generateByteCode = runGenM . mapM genFun |