gio 0.13.0.4 → 0.13.1.0

raw patch · 3 files changed

+5/−10 lines, 3 files

Files

• Gtk2HsSetup.hs +3/−8
• SetupWrapper.hs +1/−1
• gio.cabal +1/−1

@@ -429,15 +429,10 @@   let modDeps = zipWith (ModDep True []) expMods mExpFiles++                 zipWith (ModDep False []) othMods mOthFiles   modDeps <- mapM extractDeps modDeps-  let (expMods, othMods) = span mdExposed $ sortTopological modDeps-      badOther = map (fromMaybe "<no file>" . mdLocation) $-                 filter (not . mdExposed) expMods-  unless (null badOther) $-    die ("internal chs modules "++intercalate "," badOther++-         " depend on exposed chs modules; cabal needs to build internal modules first")+  let (othMods, expMods) = span (not . mdExposed) $ reverse $ sortTopological modDeps   return pd { PD.library = Just lib {-    PD.exposedModules = map mdOriginal expMods,-    PD.libBuildInfo = bi { PD.otherModules = map mdOriginal othMods }+    PD.exposedModules = map mdOriginal (reverse expMods),+    PD.libBuildInfo = bi { PD.otherModules = map mdOriginal (reverse othMods) }   }}  data ModDep = ModDep {

@@ -18,7 +18,7 @@  import System.Environment import System.Process-import System.Exit+import System.Exit (ExitCode(..), exitWith) import System.FilePath import System.Directory import qualified Control.Exception as Exception

@@ -1,5 +1,5 @@ Name:           gio-Version:        0.13.0.4+Version:        0.13.1.0 License:        LGPL-2.1 License-file:   COPYING Copyright:      (c) 2001-2010 The Gtk2Hs Team