Merge pull request #5495 from commercialhaskell/qrilka-patch-1

Use fromRight from hlint suggestion
commercialhaskell · Feb 27, 2021 · 88b0ee9 · 88b0ee9
2 parents 30224e3 + 75658e4
commit 88b0ee9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main/Main.hs b/src/main/Main.hs
@@ -553,7 +553,7 @@ cleanCmd = withConfig NoReexec . withBuildConfig . clean
 -- | Helper for build and install commands
 buildCmd :: BuildOptsCLI -> RIO Runner ()
 buildCmd opts = do
-  when (any (("-prof" `elem`) . either (const []) id . parseArgs Escaping) (boptsCLIGhcOptions opts)) $ do
+  when (any (("-prof" `elem`) . fromRight [] . parseArgs Escaping) (boptsCLIGhcOptions opts)) $ do
     logError "Error: When building with stack, you should not use the -prof GHC option"
     logError "Instead, please use --library-profiling and --executable-profiling"
     logError "See: https://github.com/commercialhaskell/stack/issues/1015"