convert: fix --rules warning
This commit is contained in:
		
							parent
							
								
									5784587208
								
							
						
					
					
						commit
						3617bc1a79
					
				@ -86,7 +86,7 @@ convert opts = do
 | 
				
			|||||||
      usingStdin = csvfile == "-"
 | 
					      usingStdin = csvfile == "-"
 | 
				
			||||||
      rulesFileSpecified = isJust $ rules_file_ opts
 | 
					      rulesFileSpecified = isJust $ rules_file_ opts
 | 
				
			||||||
      rulesfile = rulesFileFor opts csvfile
 | 
					      rulesfile = rulesFileFor opts csvfile
 | 
				
			||||||
  when (usingStdin && (not rulesFileSpecified)) $ error' "please specify a files file when converting stdin"
 | 
					  when (usingStdin && (not rulesFileSpecified)) $ error' "please use --rules to specify a rules file when converting stdin"
 | 
				
			||||||
  csvparse <- parseCsv csvfile
 | 
					  csvparse <- parseCsv csvfile
 | 
				
			||||||
  let records = case csvparse of
 | 
					  let records = case csvparse of
 | 
				
			||||||
                  Left e -> error' $ show e
 | 
					                  Left e -> error' $ show e
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user