CurryInfo: string-trie-0.0.2 / Data.Trie.Internal.update'

update' :: String -> (Maybe a -> a) -> InternalTrie a -> (Bool, InternalTrie a)
update' []     f (InternalTrie old ts) = (isNothing old,  InternalTrie (Just $ f old) ts)
update' (c:cs) f (InternalTrie v' ts) = case Prelude.lookup c ts of
  Nothing -> let t' = singleton' cs (f Nothing)
             in (True, InternalTrie v' ((c, t') : ts))
  Just t  -> let (incr, t') = update' cs f t
             in (incr, InternalTrie v' ((c, t') : (filter (\(c', _) -> c' /= c) ts)))

arguments 1 3

deterministic operation

-- Updates or inserts a value in the internal trie and
-- returns whether the size has increased.

(_, _, _)

referentially transparent operation

no fixity defined

{({[]},_,{InternalTrie}) |-> {(,)} || ({:},_,{InternalTrie}) |-> {(,)}}

update'

no precedence defined

{(,)}

String -> (Prelude.Maybe a -> a) -> InternalTrie a
-> (Prelude.Bool, InternalTrie a)

operation might suspend on free variables

possibly non-terminating

possibly non-reducible on same data term