Commit 11f78b18 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Minor revision.

[skip ci]
parent bbbf03c9
......@@ -20,9 +20,9 @@ rtsConf = pkgPath rts -/- targetDirectory Stage1 rts -/- "package.conf.inplace"
rtsLibffiLibraryName :: Action FilePath
rtsLibffiLibraryName = do
use_system_ffi <- flag UseSystemFfi
windows <- windowsHost
case (use_system_ffi, windows) of
useSystemFfi <- flag UseSystemFfi
windows <- windowsHost
case (useSystemFfi, windows) of
(True , False) -> return "ffi"
(False, False) -> return "Cffi"
(_ , True ) -> return "Cffi-6"
......
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