@@ -2,6 +2,7 @@ module Main where
22
33import BenchRunner (mainWith)
44import BuildLib (Quickness(..))
5+import Control.Applicative ((<|>))
56import Data.List (isInfixOf, isPrefixOf, isSuffixOf)
67import Data.Map (Map)
78
@@ -151,7 +152,7 @@ rtsOpts exeName benchName0 = unwords [general, exeSpecific, benchSpecific]
151152 | otherwise = ""
152153
153154speedOpts :: String -> String -> Maybe Quickness
154−speedOpts exeName benchName0 = maybe benchSpecific Just exeSpecific
155+speedOpts exeName benchName0 = exeSpecific <|> benchSpecific
155156
156157 where
157158