Fix duplicate params->query
This commit is contained in:
		
							parent
							
								
									7dff049ece
								
							
						
					
					
						commit
						d2765c2a78
					
				
					 1 changed files with 5 additions and 5 deletions
				
			
		
							
								
								
									
										10
									
								
								src/data.rkt
									
										
									
									
									
								
							
							
						
						
									
										10
									
								
								src/data.rkt
									
										
									
									
									
								
							|  | @ -57,11 +57,11 @@ | |||
|      (define res | ||||
|        (fandom-get-api | ||||
|         wikiname | ||||
|         (params->query '(("action" . "query") | ||||
|                          ("meta" . "siteinfo") | ||||
|                          ("siprop" . "general|rightsinfo") | ||||
|                          ("format" . "json") | ||||
|                          ("formatversion" . "2"))))) | ||||
|         '(("action" . "query") | ||||
|           ("meta" . "siteinfo") | ||||
|           ("siprop" . "general|rightsinfo") | ||||
|           ("format" . "json") | ||||
|           ("formatversion" . "2")))) | ||||
|      (define data (easy:response-json res)) | ||||
|      (siteinfo^ (jp "/query/general/sitename" data) | ||||
|                 (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data))) | ||||
|  |  | |||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue