@@ -690,13 +690,13 @@ module String where
691 foreign import indexOfS "function indexOfS(s1) {\
691 foreign import indexOfS "function indexOfS(s1) {\
692 \ return function(s2) {\
692 \ return function(s2) {\
693− \ return s2.indexOf(s2);\
693+ \ return s1.indexOf(s2);\
695 \}" :: String -> String -> Number
695 \}" :: String -> String -> Number
697 foreign import lastIndexOfS "function lastIndexOfS(s1) {\
697 foreign import lastIndexOfS "function lastIndexOfS(s1) {\
698 \ return function(s2) {\
698 \ return function(s2) {\
699− \ return s2.lastIndexOf(s2);\
699+ \ return s1.lastIndexOf(s2);\
701 \}" :: String -> String -> Number
701 \}" :: String -> String -> Number