dyre 0.8.4 → 0.8.5

raw patch · 3 files changed

+13/−8 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Config.Dyre.Relaunch: relaunchWithBinaryState :: (Binary a) => a -> Maybe [String] -> IO ()

+ Config.Dyre.Relaunch: relaunchWithBinaryState :: Binary a => a -> Maybe [String] -> IO ()

- Config.Dyre.Relaunch: relaunchWithTextState :: (Show a) => a -> Maybe [String] -> IO ()

+ Config.Dyre.Relaunch: relaunchWithTextState :: Show a => a -> Maybe [String] -> IO ()

- Config.Dyre.Relaunch: restoreBinaryState :: (Binary a) => a -> IO a

+ Config.Dyre.Relaunch: restoreBinaryState :: Binary a => a -> IO a

- Config.Dyre.Relaunch: restoreTextState :: (Read a) => a -> IO a

+ Config.Dyre.Relaunch: restoreTextState :: Read a => a -> IO a

- Config.Dyre.Relaunch: saveBinaryState :: (Binary a) => a -> IO ()

+ Config.Dyre.Relaunch: saveBinaryState :: Binary a => a -> IO ()

- Config.Dyre.Relaunch: saveTextState :: (Show a) => a -> IO ()

+ Config.Dyre.Relaunch: saveTextState :: Show a => a -> IO ()

Files

Config/Dyre.hs +9/−2
Config/Dyre/Paths.hs +1/−3
dyre.cabal +3/−3

Config/Dyre.hs view

@@ -96,7 +96,7 @@ module Config.Dyre ( wrapMain, Params(..), defaultParams ) where  import System.IO           ( hPutStrLn, stderr )-import System.Directory    ( doesFileExist, removeFile )+import System.Directory    ( doesFileExist, removeFile, canonicalizePath ) import System.Environment  ( getArgs )  import Control.Monad       ( when )@@ -162,7 +162,14 @@         -- gone.         errorData    <- getErrorString params         customExists <- doesFileExist tempBinary-        if confExists && customExists && (thisBinary /= tempBinary)++        -- Canonicalize the paths for comparison to avoid symlinks throwing+        -- us off. We do it here instead of earlier because canonicalizePath+        -- drops path components when one of them is nonexistent.+        thisBinary' <- canonicalizePath thisBinary+        tempBinary' <- canonicalizePath tempBinary++        if confExists && customExists && (thisBinary' /= tempBinary')            then launchSub errorData tempBinary            else enterMain errorData   where launchSub errorData tempBinary = do

Config/Dyre/Paths.hs view

@@ -28,9 +28,7 @@     let tempBinary = cacheDir </> pName ++ "-" ++ os ++ "-" ++ arch     let configFile = configDir </> pName ++ ".hs" -    thisBinary' <- canonicalizePath thisBinary-    tempBinary' <- canonicalizePath tempBinary-    return (thisBinary', tempBinary', configFile, cacheDir)+    return (thisBinary, tempBinary, configFile, cacheDir)  -- | Check if a file exists. If it exists, return Just the modification --   time. If it doesn't exist, return Nothing.

dyre.cabal view

@@ -1,5 +1,5 @@ name:          dyre-version:       0.8.4+version:       0.8.5 category:      Development, Configuration synopsis:      Dynamic reconfiguration in Haskell @@ -13,10 +13,10 @@  homepage:      http://github.com/willdonnelly/dyre bug-reports:   http://github.com/willdonnelly/dyre/issues-stability:     alpha+stability:     beta author:        Will Donnelly maintainer:    Will Donnelly <will.donnelly@gmail.com>-copyright:     (c) 2009 Will Donnelly+copyright:     (c) 2010 Will Donnelly license:       BSD3 license-file:  LICENSE