1
0
forked from GitHub/gf-core

haskell-bind: add an export list to hide internal stuff

It also makes the generated haddock documentaiton more structured.
This commit is contained in:
hallgren
2014-01-20 14:40:38 +00:00
parent 0f1826a868
commit 1631a46040

View File

@@ -3,7 +3,16 @@
#include <gu/enum.h>
#include <gu/exn.h>
module CRuntimeFFI where
module CRuntimeFFI(-- * PGF
PGF,readPGF,abstractName,startCat,
-- * Concrete syntax
Concr,Language,{-languages,-}getConcr,parse,linearize,
-- * Trees
Expr,Tree,readExpr,showExpr,unApp,
-- * Morphology
MorphoAnalysis,lookupMorpho,fullFormLexicon,
printLexEntry
) where
import Prelude hiding (fromEnum)
import Control.Monad
@@ -62,7 +71,7 @@ data PGF = PGF {pgfPool :: Pool, pgf :: Ptr PgfPGF} deriving Show
data Concr = Concr {concr :: (Ptr PgfConcr), concrMaster :: PGF}
type Language = CId
readPGF :: String -> IO PGF
readPGF :: FilePath -> IO PGF
readPGF filepath =
do pool <- newPool
pgf <- withCString filepath $ \file ->
@@ -291,4 +300,4 @@ fromFullFormEntry enum pool master =
then return []
else do tok <- peekCString =<< pgf_fullform_get_string ffEntry
toks <- unsafeInterleaveIO (fromFullFormEntry enum pool master)
return (tok : toks)
return (tok : toks)