From 1631a460402d4f170ea1e16a918fd67b105519d1 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Mon, 20 Jan 2014 14:40:38 +0000
Subject: [PATCH] haskell-bind: add an export list to hide internal stuff

It also makes the generated haddock documentaiton more structured.
---
 src/runtime/haskell-bind/CRuntimeFFI.hsc | 15 ++++++++++++---
 1 file 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)