Bindist comparison tool: Recognise OS X .dylib files too

dmpots · Mar 25, 2011 · ff903cd · ff903cd
1 parent 9c58384
commit ff903cd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/distrib/compare/compare.hs b/distrib/compare/compare.hs
@@ -161,22 +161,22 @@ mkFileNameDescr filename
          return [FP prog, FP "-", VersionOf "ghc", FP exe]
       `mplus` unchanged
  | Just [thing, thingVersion, _, ghcVersion, _, soDll]
-       <- re ("^libHS(.*)-" ++ versionRE ++ "-ghc" ++ versionRE ++ "\\.(so|dll)$")
+       <- re ("^libHS(.*)-" ++ versionRE ++ "-ghc" ++ versionRE ++ "\\.(so|dll|dylib)$")
              filename
     = do haveThingVersion "ghc" ghcVersion
          haveThingVersion thing thingVersion
          return [FP "libHS", FP thing, FP "-", VersionOf thing,
                  FP "-ghc", VersionOf "ghc", FP ".", FP soDll]
       `mplus` unchanged
  | Just [way, thingVersion, _, soDll]
-       <- re ("^libHSrts(_.*)?-ghc" ++ versionRE ++ "\\.(so|dll)$")
+       <- re ("^libHSrts(_.*)?-ghc" ++ versionRE ++ "\\.(so|dll|dylib)$")
              filename
     = do haveThingVersion "ghc" thingVersion
          return [FP "libHSrts", FP way, FP "-ghc", VersionOf "ghc",
                  FP ".", FP soDll]
       `mplus` unchanged
  | Just [thingVersion, _, soDll]
-       <- re ("^libHSffi-ghc" ++ versionRE ++ "\\.(so|dll)$")
+       <- re ("^libHSffi-ghc" ++ versionRE ++ "\\.(so|dll|dylib)$")
              filename
     = do haveThingVersion "ghc" thingVersion
          return [FP "libHSffi-ghc", VersionOf "ghc", FP ".", FP soDll]