diff options
| author | peb <unknown> | 2005-02-09 11:46:54 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-09 11:46:54 +0000 |
| commit | a0d412986305d4b45e82afde62ea48f1b06edb9d (patch) | |
| tree | bca6f55ef01469442ef55f6bd0caa511e147350f /src/GF/Data/Glue.hs | |
| parent | 4fd0c636f8590bf800715f2598e54ccc22c99b90 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Data/Glue.hs')
| -rw-r--r-- | src/GF/Data/Glue.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/GF/Data/Glue.hs b/src/GF/Data/Glue.hs index cfbe0e746..c541446b1 100644 --- a/src/GF/Data/Glue.hs +++ b/src/GF/Data/Glue.hs @@ -9,17 +9,15 @@ -- > CVS $Author $ -- > CVS $Revision $ -- --- (Description of the module) +-- AR 8-11-2003, using Markus Forsberg's implementation of Huet's @unglue@ ----------------------------------------------------------------------------- -module Glue where +module Glue (decomposeSimple, exTrie) where import Trie2 import Operations import List --------- AR 8/11/2003, using Markus Forsberg's implementation of Huet's unglue - decomposeSimple :: Trie Char a -> [Char] -> Err [[Char]] decomposeSimple t s = do let ss = map (decompose t) $ words s |
