Commit bbbf03c9 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Drop redundant case.

[skip ci]
parent 8f68b8bc
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment