Use fromRight from hlint suggestion

qrilka · web-flow · commit 75658e4b6ade · 2021-02-27T13:38:15.000+03:00
As reported in https://github.com/commercialhaskell/stack/pull/5494/checks?check_run_id=1987494996
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"
