[commit: ghc] wip/nfs-locking: Drop redundant case. (bbbf03c)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:54:52 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/bbbf03c99d8c0264317aa5527baec180caf94388/ghc

>---------------------------------------------------------------

commit bbbf03c99d8c0264317aa5527baec180caf94388
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Jan 19 11:56:35 2016 +0000

    Drop redundant case.
    
    [skip ci]


>---------------------------------------------------------------

bbbf03c99d8c0264317aa5527baec180caf94388
 src/Settings/Packages/Rts.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/Settings/Packages/Rts.hs b/src/Settings/Packages/Rts.hs
index 58b76cf..e41e2bf 100644
--- a/src/Settings/Packages/Rts.hs
+++ b/src/Settings/Packages/Rts.hs
@@ -23,11 +23,9 @@ rtsLibffiLibraryName = do
     use_system_ffi <- flag UseSystemFfi
     windows <- windowsHost
     case (use_system_ffi, windows) of
-      (True, False) -> return "ffi"
+      (True , False) -> return "ffi"
       (False, False) -> return "Cffi"
-      (_, True) -> return "Cffi-6"
-      (_, _) -> error "Unsupported FFI library configuration case"
-
+      (_    , True ) -> return "Cffi-6"
 
 rtsPackageArgs :: Args
 rtsPackageArgs = package rts ? do



More information about the ghc-commits mailing list