shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Avoid a _noMatch

--- a/lib/Data/List.hs

+++ b/lib/Data/List.hs

@@ -158,9 +158,9 @@

 isPrefixOf = isPrefixOfBy (==)

 isPrefixOfBy :: forall a . (a -> a -> Bool) -> [a] -> [a] -> Bool

-isPrefixOfBy _ [] _ = True

-isPrefixOfBy _ _ [] = False

 isPrefixOfBy eq (c:cs) (d:ds) = eq c d && isPrefixOfBy eq cs ds

+isPrefixOfBy _ [] _ = True

+isPrefixOfBy _ _  _ = False

 splitAt :: forall a . P.Int -> [a] -> ([a], [a])

 splitAt n xs = (take n xs, drop n xs)

-- 

⑨