Replace two '$' with '<|'
This commit is contained in:
parent
569541e72a
commit
df667ca022
2 changed files with 2 additions and 2 deletions
|
@ -33,7 +33,7 @@ g <<< f = f >>> g
|
||||||
-- Combine a list of automatons into a single automaton that produces a list.
|
-- Combine a list of automatons into a single automaton that produces a list.
|
||||||
combine : [Automaton a b] -> Automaton a [b]
|
combine : [Automaton a b] -> Automaton a [b]
|
||||||
combine autos =
|
combine autos =
|
||||||
Step (\a -> let (autos', bs) = unzip $ map (step a) autos
|
Step (\a -> let (autos', bs) = unzip <| map (step a) autos
|
||||||
in (combine autos', bs))
|
in (combine autos', bs))
|
||||||
|
|
||||||
-- Create an automaton with no memory. It just applies the given function to
|
-- Create an automaton with no memory. It just applies the given function to
|
||||||
|
|
|
@ -154,7 +154,7 @@ find k t =
|
||||||
-- Determine if a key is in a dictionary.
|
-- Determine if a key is in a dictionary.
|
||||||
member : Comparable k -> Dict (Comparable k) v -> Bool
|
member : Comparable k -> Dict (Comparable k) v -> Bool
|
||||||
-- Does t contain k?
|
-- Does t contain k?
|
||||||
member k t = Maybe.isJust $ lookup k t
|
member k t = Maybe.isJust <| lookup k t
|
||||||
|
|
||||||
rotateLeft : Dict k v -> Dict k v
|
rotateLeft : Dict k v -> Dict k v
|
||||||
rotateLeft t =
|
rotateLeft t =
|
||||||
|
|
Loading…
Reference in a new issue