@@ -84,7 +84,9 @@ main = bracket (return ()) (\() -> hFlush stdout >> hFlush stderr) $ \() -> do
8484 hash = [ h | SHA256 h <- opts ]
8585 maintainers = [ m | Maintainer m <- opts ]
8686 platforms' = [ p | Platform p <- opts ]
87− platforms = if null platforms' && not (null maintainers) then [ "haskellPlatforms" ] else []
87+ platforms
88+ | null platforms' = if not (null maintainers) then ["haskellPlatforms"] else []
89+ | otherwise = platforms'
8890
8991 when (length uri /= 1) (cmdlineError "*** exactly one URI must be specified")
9092 when (length hash > 1) (cmdlineError "*** the --sha256 option may be specified only once")