File tree Expand file tree Collapse file tree 3 files changed +4
-6
lines changed
Expand file tree Collapse file tree 3 files changed +4
-6
lines changed Original file line number Diff line number Diff line change @@ -121,10 +121,9 @@ customOptions otherArgs = do
121121-- | Look for the given flag in the argument array, and store
122122-- its value under the given name if it exists.
123123storeFlag :: [String ] -> String -> String -> IO ()
124- storeFlag args flag name
125- | null match = return ()
126- | otherwise = putValue " dyre" name $ drop (length flag) (head match)
127- where match = filter (isPrefixOf flag) args
124+ storeFlag args flag name = case filter (isPrefixOf flag) args of
125+ [] -> pure ()
126+ h: _ -> putValue " dyre" name $ drop (length flag) h
128127
129128-- | The array of all arguments that Dyre recognizes. Used to
130129-- make sure none of them are visible past 'withDyreOptions'
Original file line number Diff line number Diff line change @@ -33,7 +33,6 @@ module Config.Dyre.Relaunch
3333 ) where
3434
3535import Data.Maybe ( fromMaybe )
36- import System.IO ( writeFile , readFile )
3736import Data.Binary ( Binary , encodeFile , decodeFile )
3837import Control.Exception ( try , SomeException )
3938import System.FilePath ( (</>) )
Original file line number Diff line number Diff line change @@ -52,7 +52,7 @@ library
5252 Config.Dyre.Compile,
5353 Config.Dyre.Relaunch
5454 build-depends :
55- base >= 4.8 && < 5
55+ base >= 4.18 && < 5
5656 , binary
5757 , directory >= 1.2.0.0
5858 , executable-path
You can’t perform that action at this time.
0 commit comments