Fix to compile with base-1.0:Data.List

which did not have isInfixOf

Distribution/Simple/PackageIndex.hs

@@ -65,7 +65,11 @@ import qualified Data.Tree  as Tree
 import qualified Data.Graph as Graph
 import qualified Data.Array as Array
 import Data.Array ((!))
+#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ < 606)
+import Data.List (groupBy, sortBy, find, isPrefixOf, tails)
+#else
 import Data.List (groupBy, sortBy, find, isInfixOf)
+#endif
 import Data.Monoid (Monoid(..))
 import Data.Maybe (isNothing, fromMaybe)
 
@@ -82,6 +86,11 @@ import Text.Read
 import qualified Text.Read.Lex as L
 #endif
 
+#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ < 606)
+isInfixOf :: (Eq a) => [a] -> [a] -> Bool
+isInfixOf needle haystack = any (isPrefixOf needle) (tails haystack)
+#endif
+
 -- | The collection of information about packages from one or more 'PackageDB's.
 --
 -- It can be searched effeciently by package name and version.