pred-trie 0.2.1 → 0.2.3

raw patch · 2 files changed

+3/−2 lines, 2 filesdep ~composition-extra

Dependency ranges changed: composition-extra

Files

• pred-trie.cabal +1/−1
• src/Data/Trie/Pred/Unified.hs +2/−1

@@ -1,5 +1,5 @@ Name:                   pred-trie-Version:                0.2.1+Version:                0.2.3 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                BSD3

@@ -1,5 +1,6 @@ module Data.Trie.Pred.Unified   ( RUPTrie (..)+  , UPTrie (..)   , assignLit   , showTrie   , merge@@ -88,7 +89,7 @@   firstJust $ (NU.lookupNearestParent (NE.fromList ts) <$> xs) ++ [mx]  -- | Append contents up-to lookup path.-lookupThrough :: (Eq t, Monoid x) => [t] -> RUPTrie t x -> [x]+lookupThrough :: (Eq t) => [t] -> RUPTrie t x -> [x] lookupThrough [] (Rooted mx _) = maybeToList mx lookupThrough ts (Rooted mx xs) =   maybeToList mx ++ NU.firstNonEmpty (NU.lookupThrough (NE.fromList ts) <$> xs)