allow using Aeson for streaming JSON output
Keeping Text.JSON use for now, because it seems a better fit for most of the commands, which don't use very structured JSON objects, but just output whatever fields suites them. But this lets Aeson be used when a more structured data type is available to serialize to JSON.
This commit is contained in:
		
					parent
					
						
							
								fdd87d8e55
							
						
					
				
			
			
				commit
				
					
						a030d0a8b7
					
				
			
		
					 10 changed files with 52 additions and 33 deletions
				
			
		| 
						 | 
				
			
			@ -356,7 +356,7 @@ cleanup u url file key mtmp = case mtmp of
 | 
			
		|||
			)
 | 
			
		||||
  where
 | 
			
		||||
	go = do
 | 
			
		||||
		maybeShowJSON [("key", key2file key)]
 | 
			
		||||
		maybeShowJSON $ JSONObject [("key", key2file key)]
 | 
			
		||||
		when (isJust mtmp) $
 | 
			
		||||
			logStatus key InfoPresent
 | 
			
		||||
		setUrlPresent u key url
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue