From a0d412986305d4b45e82afde62ea48f1b06edb9d Mon Sep 17 00:00:00 2001 From: peb Date: Wed, 9 Feb 2005 11:46:54 +0000 Subject: "Committed_by_peb" --- src/GF/Data/Glue.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/GF/Data/Glue.hs') 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 -- cgit v1.2.3