Support multiword options.

b9c1da83 · Andrey Mokhov · 91339343 · b9c1da83
Commit b9c1da83 authored Jan 06, 2015 by Andrey Mokhov
--- a/src/Oracles/Option.hs
+++ b/src/Oracles/Option.hs
@@ -13,7 +13,7 @@ data Option = TargetOS | TargetArch | TargetPlatformFull
            | HostOsCpp

 instance ShowAction Option where
-    showAction opt = showAction $ askConfig $ case opt of 
+    showAction opt = showAction $ fmap words $ askConfig $ case opt of 
        TargetOS                -> "target-os"
        TargetArch              -> "target-arch"
        TargetPlatformFull      -> "target-platform-full"