get rid of documentation for functions that are not exported

libraries/Either.elm

@@ -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)

libraries/Maybe.elm

@@ -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.