summaryrefslogtreecommitdiff
path: root/src/GF/Data/Glue.hs
diff options
context:
space:
mode:
authorpeb <unknown>2005-02-09 11:46:54 +0000
committerpeb <unknown>2005-02-09 11:46:54 +0000
commita0d412986305d4b45e82afde62ea48f1b06edb9d (patch)
treebca6f55ef01469442ef55f6bd0caa511e147350f /src/GF/Data/Glue.hs
parent4fd0c636f8590bf800715f2598e54ccc22c99b90 (diff)
"Committed_by_peb"
Diffstat (limited to 'src/GF/Data/Glue.hs')
-rw-r--r--src/GF/Data/Glue.hs6
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