diff options
| author | krangelov <kr.angelov@gmail.com> | 2019-05-28 12:59:07 +0200 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2019-05-28 12:59:07 +0200 |
| commit | 8c18d7162fc197b45a0292e93f29116c918b9d2f (patch) | |
| tree | a0f46643bd143967e6c070c41084a487844501b8 /src/runtime/haskell-bind/PGF2 | |
| parent | ac039ec74fad8983e8826c5357f1a40d73a0970a (diff) | |
bits of documentation
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/Internal.hsc | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/runtime/haskell-bind/PGF2/Internal.hsc b/src/runtime/haskell-bind/PGF2/Internal.hsc index 6582a9ada..3cb4199d0 100644 --- a/src/runtime/haskell-bind/PGF2/Internal.hsc +++ b/src/runtime/haskell-bind/PGF2/Internal.hsc @@ -528,17 +528,17 @@ newAbstr aflags cats funs = unsafePerformIO $ do data ConcrInfo = ConcrInfo (Ptr GuSeq) (Ptr GuMap) (Ptr GuMap) (Ptr GuSeq) (Ptr GuSeq) (Ptr GuMap) (Ptr PgfConcr -> Ptr GuPool -> IO ()) CInt -newConcr :: (?builder :: Builder s) => AbstrInfo -> - [(String,Literal)] -> -- ^ Concrete syntax flags - [(String,String)] -> -- ^ Printnames - [(FId,[FunId])] -> -- ^ Lindefs - [(FId,[FunId])] -> -- ^ Linrefs - [(FId,[Production])] -> -- ^ Productions - [(Fun,[SeqId])] -> -- ^ Concrete functions (must be sorted by Fun) - [[Symbol]] -> -- ^ Sequences (must be sorted) - [(Cat,FId,FId,[String])] -> -- ^ Concrete categories - FId -> -- ^ The total count of the categories - ConcrInfo +newConcr :: (?builder :: Builder s) => AbstrInfo + -> [(String,Literal)] -- ^ Concrete syntax flags + -> [(String,String)] -- ^ Printnames + -> [(FId,[FunId])] -- ^ Lindefs + -> [(FId,[FunId])] -- ^ Linrefs + -> [(FId,[Production])] -- ^ Productions + -> [(Fun,[SeqId])] -- ^ Concrete functions (must be sorted by Fun) + -> [[Symbol]] -- ^ Sequences (must be sorted) + -> [(Cat,FId,FId,[String])] -- ^ Concrete categories + -> FId -- ^ The total count of the categories + -> ConcrInfo newConcr (AbstrInfo _ _ abscats _ absfuns c_abs_lin_fun c_non_lexical_buf _) cflags printnames lindefs linrefs prods cncfuns sequences cnccats total_cats = unsafePerformIO $ do c_cflags <- newFlags cflags pool c_printname <- newMap (#size GuString) gu_string_hasher newUtf8CString |