public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update xmonad nix patch to apply to new xmonad

Browse Source
This commit is contained in:
Jude Taylor 2017-02-14 16:51:55 -08:00
parent f56fa4824a
commit 0637f83fb8
No known key found for this signature in database
GPG Key ID: 7BF1DC6E555A6167
1 changed files with 46 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
pkgs/development/haskell-modules/patches/xmonad-nix.patch
View File

@ -1,31 +1,33 @@
diff --git a/src/XMonad/Core.hs b/src/XMonad/Core.hs
index 138d735..65b5a84 100644
--- a/src/XMonad/Core.hs --- a/src/XMonad/Core.hs
+++ b/src/XMonad/Core.hs +++ b/src/XMonad/Core.hs
@@ -48,6 +48,7 @@ import System.Posix.Types (ProcessID) @@ -51,6 +51,7 @@ import System.Posix.Types (ProcessID)
import System.Process import System.Process
import System.Directory import System.Directory
import System.Exit import System.Exit
+import System.Environment (lookupEnv) +import System.Environment (lookupEnv)
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras (Event) import Graphics.X11.Xlib.Extras (getWindowAttributes, WindowAttributes, Event)
import Data.Typeable import Data.Typeable
@@ -463,6 +464,7 @@ recompile force = io $ do @@ -571,6 +572,7 @@ recompile force = io $ do
err = base ++ ".errors" lib = cfgdir </> "lib"
src = base ++ ".hs" buildscript = cfgdir </> "build"
lib = dir </> "lib"
+ ghc <- fromMaybe "ghc" <$> liftIO (lookupEnv "NIX_GHC") + ghc <- fromMaybe "ghc" <$> liftIO (lookupEnv "NIX_GHC")
libTs <- mapM getModTime . Prelude.filter isSource =<< allFiles lib libTs <- mapM getModTime . Prelude.filter isSource =<< allFiles lib
srcT <- getModTime src srcT <- getModTime src
binT <- getModTime bin binT <- getModTime bin
@@ -471,7 +473,7 @@ recompile force = io $ do @@ -586,7 +588,7 @@ recompile force = io $ do
-- temporarily disable SIGCHLD ignoring: status <- bracket (openFile err WriteMode) hClose $ \errHandle ->
uninstallSignalHandlers waitForProcess =<< if useBuildscript
status <- bracket (openFile err WriteMode) hClose $ \h -> then compileScript bin cfgdir buildscript errHandle
- waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i", "-ilib", "-fforce-recomp", "-main-is", "main", "-v0", "-o",binn] (Just dir) - else compileGHC bin cfgdir errHandle
+ waitForProcess =<< runProcess ghc ["--make", "xmonad.hs", "-i", "-ilib", "-fforce-recomp", "-main-is", "main", "-v0", "-o",binn] (Just dir) + else compileGHC ghc bin cfgdir errHandle
Nothing Nothing Nothing (Just h)
-- re-enable SIGCHLD: -- re-enable SIGCHLD:
@@ -480,6 +482,7 @@ recompile force = io $ do installSignalHandlers
@@ -594,6 +596,7 @@ recompile force = io $ do
-- now, if it fails, run xmessage to let the user know: -- now, if it fails, run xmessage to let the user know:
when (status /= ExitSuccess) $ do when (status /= ExitSuccess) $ do
ghcErr <- readFile err ghcErr <- readFile err
@ -33,12 +35,39 @@
let msg = unlines $ let msg = unlines $
["Error detected while loading xmonad configuration file: " ++ src] ["Error detected while loading xmonad configuration file: " ++ src]
++ lines (if null ghcErr then show status else ghcErr) ++ lines (if null ghcErr then show status else ghcErr)
@@ -487,7 +490,7 @@ recompile force = io $ do @@ -601,7 +604,7 @@ recompile force = io $ do
-- nb, the ordering of printing, then forking, is crucial due to -- nb, the ordering of printing, then forking, is crucial due to
-- lazy evaluation -- lazy evaluation
hPutStrLn stderr msg hPutStrLn stderr msg
- forkProcess $ executeFile "xmessage" True ["-default", "okay", msg] Nothing - forkProcess $ executeFile "xmessage" True ["-default", "okay", replaceUnicode msg] Nothing
+ forkProcess $ executeFile xmessage True ["-default", "okay", msg] Nothing + forkProcess $ executeFile xmessage True ["-default", "okay", replaceUnicode msg] Nothing
return () return ()
return (status == ExitSuccess) return (status == ExitSuccess)
else return True else return True
@@ -619,16 +622,16 @@ recompile force = io $ do
'\8216' -> '`' -- ‘
'\8217' -> '`' -- ’
_ -> c
- compileGHC bin dir errHandle =
- runProcess "ghc" ["--make"
- , "xmonad.hs"
- , "-i"
- , "-ilib"
- , "-fforce-recomp"
- , "-main-is", "main"
- , "-v0"
- , "-o", bin
- ] (Just dir) Nothing Nothing Nothing (Just errHandle)
+ compileGHC ghc bin dir errHandle =
+ runProcess ghc ["--make"
+ , "xmonad.hs"
+ , "-i"
+ , "-ilib"
+ , "-fforce-recomp"
+ , "-main-is", "main"
+ , "-v0"
+ , "-o", bin
+ ] (Just dir) Nothing Nothing Nothing (Just errHandle)
compileScript bin dir script errHandle =
runProcess script [bin] (Just dir) Nothing Nothing Nothing (Just errHandle)