diff options
| author | hallgren <hallgren@chalmers.se> | 2014-01-20 14:40:38 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-01-20 14:40:38 +0000 |
| commit | 801a20d27ad53b05ef67e540be343dfd2469deb0 (patch) | |
| tree | c7b08d6aaec34b33980e821c6934e65f90949142 /src/runtime/haskell-bind | |
| parent | d2d57a921000c776dd36a90882348fcc150874f5 (diff) | |
haskell-bind: add an export list to hide internal stuff
It also makes the generated haddock documentaiton more structured.
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/CRuntimeFFI.hsc | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/runtime/haskell-bind/CRuntimeFFI.hsc b/src/runtime/haskell-bind/CRuntimeFFI.hsc index 7554170ed..ff0ed628a 100644 --- a/src/runtime/haskell-bind/CRuntimeFFI.hsc +++ b/src/runtime/haskell-bind/CRuntimeFFI.hsc @@ -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)
\ No newline at end of file + return (tok : toks) |