get rid of documentation for functions that are not exported
This commit is contained in:
parent
e0b0cc0ab5
commit
44057afdb0
2 changed files with 0 additions and 17 deletions
|
@ -52,28 +52,16 @@ have the equivalence: `(partition es == (lefts es, rights es))`
|
|||
partition : [Either a b] -> ([a],[b])
|
||||
partition es = List.foldr consEither ([],[]) es
|
||||
|
||||
{-| If `Left`, add the value to the front of the list.
|
||||
If `Right`, return the list unchanged
|
||||
-}
|
||||
consLeft : Either a b -> [a] -> [a]
|
||||
consLeft e vs =
|
||||
case e of
|
||||
Left v -> v::vs
|
||||
Right _ -> vs
|
||||
|
||||
{-| If `Right`, add the value to the front of the list.
|
||||
If `Left`, return the list unchanged.
|
||||
-}
|
||||
consRight : Either a b -> [b] -> [b]
|
||||
consRight e vs =
|
||||
case e of
|
||||
Left _ -> vs
|
||||
Right v -> v::vs
|
||||
|
||||
{-| If `Left`, add the value to the left list.
|
||||
If `Right`, add the value to the right list.
|
||||
-}
|
||||
consEither : Either a b -> ([a], [b]) -> ([a], [b])
|
||||
consEither e (ls,rs) =
|
||||
case e of
|
||||
Left l -> (l::ls,rs)
|
||||
|
|
|
@ -39,11 +39,6 @@ isJust = maybe False (\_ -> True)
|
|||
isNothing : Maybe a -> Bool
|
||||
isNothing = not . isJust
|
||||
|
||||
|
||||
{-| If `Just`, adds the value to the front of the list.
|
||||
If `Nothing`, list is unchanged.
|
||||
-}
|
||||
cons : Maybe a -> [a] -> [a]
|
||||
cons mx xs = maybe xs (\x -> x :: xs) mx
|
||||
|
||||
{-| Filters out Nothings and extracts the remaining values.
|
||||
|
|
Loading…
Reference in a new issue