gistfile1.hs

-- the following is for trie nodes where the source is smaller
insertNode contextNode@TrieNode{children=childNodes,nodeType=oldNodeType} 
           SourceIsSmallerDatum {pre=source,
                                 suffixT= suffixStringOfTarget}
    = contextNode{ wordFragment = source,
                   nodeType = Word,
                   children= slidNode *-> childNodes   }
      where slidNode = contextNode{wordFragment=suffixStringOfTarget,nodeType=oldNodeType}