Don't ignore a specified non-default port in 'haunt serve'.
Without this patch 'haunt serve' claims to use the specified non-default port, but in fact uses the default 8080 instead.
This commit is contained in:
		
				
					committed by
					
						
						David Thompson
					
				
			
			
				
	
			
			
			
						parent
						
							9e4fba766d
						
					
				
				
					commit
					829ee49c2d
				
			@@ -140,4 +140,4 @@ site."
 | 
				
			|||||||
                     (string-prefix? (string-append cwd "/" build-dir) dir))))
 | 
					                     (string-prefix? (string-append cwd "/" build-dir) dir))))
 | 
				
			||||||
                (site-file-filter site)))))
 | 
					                (site-file-filter site)))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
    (serve doc-root)))
 | 
					    (serve doc-root #:open-params `(#:port ,port))))
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user