4e604ef · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Fix hlint: use (<|>) instead of maybe

4e604efHarendra Kumar4 years ago

benchmark/report/Main.hs+2−1

@@ -2,6 +2,7 @@ module Main where

3import BenchRunner (mainWith)

4import BuildLib (Quickness(..))

5+import Control.Applicative ((<|>))

5import Data.List (isInfixOf, isPrefixOf, isSuffixOf)

6import Data.List (isInfixOf, isPrefixOf, isSuffixOf)

6import Data.Map (Map)

7import Data.Map (Map)

@@ -151,7 +152,7 @@ rtsOpts exeName benchName0 = unwords [general, exeSpecific, benchSpecific]

151 | otherwise = ""

152 | otherwise = ""

152

153

153speedOpts :: String -> String -> Maybe Quickness

154speedOpts :: String -> String -> Maybe Quickness

154−speedOpts exeName benchName0 = maybe benchSpecific Just exeSpecific

155+speedOpts exeName benchName0 = exeSpecific <|> benchSpecific

155

156

156 where

157 where

157

158