mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix bogus ghc 8.6.3 build warning

Browse source 
ghc warned that the guards did not cover all values of h, but they
clearly do, and when rewritten as a case statement the warning goes
away.

Probably a ghc bug, but I kind of prefer the case statement over the
guards anyway.
This commit is contained in:
Joey Hess 2018-12-30 14:43:27 -04:00
parent 5bd618a1f6
commit 5480b3a9af
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Utility/Process.hs
View file

@ -178,13 +178,10 @@ withHandle h creator p a = creator p' $ a . select
, std_out = Inherit , std_out = Inherit
, std_err = Inherit , std_err = Inherit
} }
(select, p') (select, p') = case h of
| h == StdinHandle = StdinHandle -> (stdinHandle, base { std_in = CreatePipe })
(stdinHandle, base { std_in = CreatePipe }) StdoutHandle -> (stdoutHandle, base { std_out = CreatePipe })
| h == StdoutHandle = StderrHandle -> (stderrHandle, base { std_err = CreatePipe })
(stdoutHandle, base { std_out = CreatePipe })
| h == StderrHandle =
(stderrHandle, base { std_err = CreatePipe })
-- | Like withHandle, but passes (stdin, stdout) handles to the action. -- | Like withHandle, but passes (stdin, stdout) handles to the action.
withIOHandles withIOHandles