diff options
| author | krangelov <kr.angelov@gmail.com> | 2019-08-09 15:18:27 +0200 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2019-08-09 15:18:27 +0200 |
| commit | 85a81ef741239717cbc81e883e10433d8c0bc2b3 (patch) | |
| tree | 698cd7d7782a1b757e2f61609a0d840fef888689 /src/runtime/haskell-bind | |
| parent | 3e662475ee8413f21562bf06c45d5e8e4efe4eff (diff) | |
| parent | b77626b802b2152508ba62e1d36accf85ae30a95 (diff) | |
Merge branch 'master' of https://github.com/GrammaticalFramework/gf-core
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index fd77dbbf7..a41c915f1 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -168,8 +168,6 @@ languages p = concr <- fmap (\ptr -> Concr ptr (touchPGF p)) $ peek (castPtr value) writeIORef ref $! Map.insert name concr langs --- | The abstract language name is the name of the top-level --- abstract module concreteName :: Concr -> ConcName concreteName c = unsafePerformIO (peekUtf8CString =<< pgf_concrete_name (concr c)) |