hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

error if we check nothing

Browse Source
This commit is contained in:
amesgen 2021-01-02 08:51:57 +01:00
parent 53db68e39f
commit 5c43ff4c9e
No known key found for this signature in database
GPG Key ID: 1A89EC203635A13D
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/ghcup-gen/Validate.hs
View File

@ -184,6 +184,7 @@ validateTarballs (TarballFilter tool versionRegex) dls = do
%& indices (maybe (const True) (==) tool) %> each %& indices (maybe (const True) (==) tool) %> each
%& indices (matchTest versionRegex . T.unpack . prettyVer) %& indices (matchTest versionRegex . T.unpack . prettyVer)
% (viSourceDL % _Just `summing` viArch % each % each % each) % (viSourceDL % _Just `summing` viArch % each % each % each)
when (null dlis) $ $(logError) [i|no tarballs selected by filter|] *> addError
forM_ dlis $ downloadAll forM_ dlis $ downloadAll
-- exit -- exit
@ -195,13 +196,13 @@ validateTarballs (TarballFilter tool versionRegex) dls = do
pure ExitSuccess pure ExitSuccess
where where
downloadAll dli = do runLogger = myLoggerT LoggerConfig { lcPrintDebug = True
dirs <- liftIO getDirs
let settings = AppState (Settings True False Never Curl False GHCupURL) dirs defaultKeyBindings
let runLogger = myLoggerT LoggerConfig { lcPrintDebug = True
, colorOutter = B.hPut stderr , colorOutter = B.hPut stderr
, rawOutter = (\_ -> pure ()) , rawOutter = (\_ -> pure ())
} }
downloadAll dli = do
dirs <- liftIO getDirs
let settings = AppState (Settings True False Never Curl False GHCupURL) dirs defaultKeyBindings
r <- r <-
runLogger runLogger