From 487b9d4571a847ee0273b4627aaa135c46a51b8d Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 1 Jul 2010 12:16:16 +0000 Subject: [PATCH] use '==' consistently rather than '->' in examples --- Data/List.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Data/List.hs b/Data/List.hs index 87af0db..cc166d8 100644 --- a/Data/List.hs +++ b/Data/List.hs @@ -230,10 +230,10 @@ infix 5 \\ -- comment to fool cpp -- It returns 'Nothing' if the list did not start with the prefix -- given, or 'Just' the list after the prefix, if it does. -- --- > stripPrefix "foo" "foobar" -> Just "bar" --- > stripPrefix "foo" "foo" -> Just "" --- > stripPrefix "foo" "barfoo" -> Nothing --- > stripPrefix "foo" "barfoobaz" -> Nothing +-- > stripPrefix "foo" "foobar" == Just "bar" +-- > stripPrefix "foo" "foo" == Just "" +-- > stripPrefix "foo" "barfoo" == Nothing +-- > stripPrefix "foo" "barfoobaz" == Nothing stripPrefix :: Eq a => [a] -> [a] -> Maybe [a] stripPrefix [] ys = Just ys stripPrefix (x:xs) (y:ys) @@ -297,8 +297,8 @@ isSuffixOf x y = reverse x `isPrefixOf` reverse y -- -- Example: -- --- >isInfixOf "Haskell" "I really like Haskell." -> True --- >isInfixOf "Ial" "I really like Haskell." -> False +-- >isInfixOf "Haskell" "I really like Haskell." == True +-- >isInfixOf "Ial" "I really like Haskell." == False isInfixOf :: (Eq a) => [a] -> [a] -> Bool isInfixOf needle haystack = any (isPrefixOf needle) (tails haystack) -- 1.7.10.4