adapt to cabal-1.2.3.0
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 16 Jan 2009 21:20:47 +0000 (21:20 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 16 Jan 2009 21:20:47 +0000 (21:20 +0000)
Index.hs

index 73c1123..e413410 100644 (file)
--- a/Index.hs
+++ b/Index.hs
@@ -21,8 +21,8 @@ readIndex str = do
     entr <- archiveEntries untared
     case splitDirectories (tarFileName (entryHeader entr)) of
         [".",pkgname,vers,file] -> do
-            let descr = case parseDescription (unpack (entryData entr)) of
-                    ParseOk _ descr -> descr
+            let descr = case parsePackageDescription (unpack (entryData entr)) of
+                    ParseOk _ genDescr -> flattenPackageDescription genDescr
                     _  -> error $ "Couldn't read cabal file "++show file
             return (pkgname,vers,descr)
         _ -> fail "doesn't look like the proper path"