cln: hlint: Remove exitSuccess warning.
This commit is contained in:
		
							parent
							
								
									119e20aa36
								
							
						
					
					
						commit
						d2beb89eba
					
				| @ -71,7 +71,6 @@ | |||||||
| - ignore: {name: "Use lambda-case"} | - ignore: {name: "Use lambda-case"} | ||||||
| - ignore: {name: "Redundant lambda"} | - ignore: {name: "Redundant lambda"} | ||||||
| - ignore: {name: "Replace case with fromMaybe"} | - ignore: {name: "Replace case with fromMaybe"} | ||||||
| - ignore: {name: "Use exitSuccess"} |  | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
| # Specify additional command line arguments | # Specify additional command line arguments | ||||||
|  | |||||||
| @ -51,7 +51,7 @@ main = do | |||||||
|   putStrLn $ printf "Running %d doctests from %s" (length tests) f |   putStrLn $ printf "Running %d doctests from %s" (length tests) f | ||||||
|   ok <-  mapM runShellDocTest $ doctests s |   ok <-  mapM runShellDocTest $ doctests s | ||||||
|   putStrLn "" |   putStrLn "" | ||||||
|   if any not ok then exitFailure else exitWith ExitSuccess |   if all ok then exitSuccess else exitFailure | ||||||
| 
 | 
 | ||||||
| runShellDocTest :: String -> IO Bool | runShellDocTest :: String -> IO Bool | ||||||
| runShellDocTest s = do | runShellDocTest s = do | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user