Chart-fltkhs 0.1.0.5 → 0.1.0.6

raw patch · 2 files changed

+5/−48 lines, 2 filessetup-changedPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Chart-fltkhs.cabal +4/−1
• Setup.hs +1/−47

@@ -1,6 +1,6 @@ cabal-version: 2.4 name: Chart-fltkhs-version: 0.1.0.5+version: 0.1.0.6 license: BSD-3-Clause license-file: LICENSE maintainer: michael.oswald@onikudaki.net@@ -9,6 +9,9 @@ synopsis: A backend for the Chart library for FLTKHS description:     A backend for the Chart library for FLTKHS, based on FLTKs native drawing functions.++    Note that FLTK's native drawing functions do not support transparency (alpha channel) +    natively, so charts depending on transparency will not look right. category: Graphics build-type: Custom 

@@ -1,48 +1,2 @@-{-# LANGUAGE CPP #-}-module Main (main) where- import Distribution.Simple-import Distribution.Simple.Program-import Distribution.Simple.LocalBuildInfo-import Distribution.PackageDescription-import System.FilePath-import System.Environment (getEnv, setEnv)-import Distribution.Simple.LocalBuildInfo (installedPkgs)-import Distribution.Simple.PackageIndex (lookupDependency)-import Distribution.Package (Dependency, PackageName)-import Distribution.Version (anyVersion)-import Distribution.System (buildOS, OS(Windows, OSX))-import Distribution.InstalledPackageInfo-import System.IO.Error--#if defined(MIN_VERSION_Cabal) && MIN_VERSION_Cabal(2,0,0)-_PackageName = mkPackageName-#else-_PackageName = PackageName-#endif--main :: IO ()-main = defaultMainWithHooks (simpleUserHooks { buildHook = myBuildHook })--myBuildHook pkg_descr local_bld_info user_hooks bld_flags =-  let fltkhsDependency = lookupDependency (installedPkgs local_bld_info) (Dependency (_PackageName "fltkhs") anyVersion)-      keepBuilding = (buildHook simpleUserHooks) pkg_descr local_bld_info user_hooks bld_flags-  in-  case fltkhsDependency of-    [] -> keepBuilding-    (_,[]):_ -> keepBuilding-    (_, (packageInfo:_)):_ ->-       mapM_ (updateEnv "LIBRARY_PATH") (libraryDirs packageInfo) >>-       keepBuilding--updateEnv :: String -> String -> IO ()-updateEnv env value = do-  old <- tryIOError (getEnv env)-  setEnv env ((either (const value)-                      (\old' -> value ++-                               (case buildOS of-                                  Windows -> ";"-                                  _ -> ":") ++-                               old'-                      )-                      old))+main = defaultMain