diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-12-29 00:46:01 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2019-12-29 16:35:59 +0100 |
| commit | 621f81d9a5b31990c08453c67b26fbfc11ae3bf4 (patch) | |
| tree | 72d49a30512b6a21d37cfa3f642c2aac24302c53 | |
| parent | 3190dbf95ff9b767205ed21bd519c605bddbe4d8 (diff) | |
Fix unused argument warning
| -rw-r--r-- | tests/GhcSession.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index 6662b41..58b3755 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -229,7 +229,7 @@ checkAndRunTestConfig (topdir, projdir_rel, cabal_file) = testLocPath test_loc in do c_ver <- f_c_ver pt first SkipReason $ do - if| Stack <- pt, Left (SkipReason msg) <- stackCheckCompat s_ver g_ver -> + if| Stack <- pt, Left (SkipReason msg) <- stackCheckCompat s_ver -> Left $ msg | ci_ver < parseVer "1.24" -> Left $ "cabal-install-" ++ showVersion ci_ver ++ " is too old" @@ -505,15 +505,15 @@ stackBuiltinCabalVersion :: (?progs :: Programs) => Version -> Version -> Either SkipReason (IO Version) stackBuiltinCabalVersion s_ver g_ver = do - _ <- stackCheckCompat s_ver g_ver + _ <- stackCheckCompat s_ver res <- lookupStackResolver g_ver return $ parseVer . trim <$> readProcess (stackProgram ?progs) [ "--resolver="++res, "--system-ghc", "exec", "--" , "ghc-pkg", "--simple-output", "field", "Cabal", "version" ] "" -stackCheckCompat :: Version -> Version -> Either SkipReason () -stackCheckCompat s_ver g_ver = +stackCheckCompat :: Version -> Either SkipReason () +stackCheckCompat s_ver = if| s_ver < parseVer "1.9.4" -> Left $ SkipReason $ "stack-" ++ showVersion s_ver ++ " is too old" | otherwise -> |