Update for io.logging change
							parent
							
								
									2f46a618a6
								
							
						
					
					
						commit
						dad715e7b0
					
				| 
						 | 
				
			
			@ -1,8 +1,8 @@
 | 
			
		|||
! Copyright (C) 2004, 2007 Slava Pestov.
 | 
			
		||||
! Copyright (C) 2004, 2008 Slava Pestov.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: arrays assocs hashtables html html.elements splitting
 | 
			
		||||
http io kernel math math.parser namespaces parser sequences
 | 
			
		||||
strings io.server vectors assocs.lib ;
 | 
			
		||||
strings io.server vectors assocs.lib io.logging ;
 | 
			
		||||
 | 
			
		||||
IN: http.server.responders
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,8 +1,8 @@
 | 
			
		|||
! Copyright (C) 2003, 2007 Slava Pestov.
 | 
			
		||||
! Copyright (C) 2003, 2008 Slava Pestov.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: assocs kernel namespaces io strings splitting
 | 
			
		||||
threads http http.server.responders sequences prettyprint
 | 
			
		||||
io.server ;
 | 
			
		||||
io.server io.logging ;
 | 
			
		||||
 | 
			
		||||
IN: http.server
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -2,7 +2,7 @@ USING: sequences rss arrays concurrency kernel sorting
 | 
			
		|||
html.elements io assocs namespaces math threads vocabs html
 | 
			
		||||
furnace http.server.templating calendar math.parser splitting
 | 
			
		||||
continuations debugger system http.server.responders
 | 
			
		||||
xml.writer prettyprint io.server ;
 | 
			
		||||
xml.writer prettyprint io.logging ;
 | 
			
		||||
IN: webapps.planet
 | 
			
		||||
 | 
			
		||||
: print-posting-summary ( posting -- )
 | 
			
		||||
| 
						 | 
				
			
			@ -90,7 +90,7 @@ SYMBOL: last-update
 | 
			
		|||
    [
 | 
			
		||||
        fetch-feed
 | 
			
		||||
    ] [
 | 
			
		||||
        swap [ . error. ] with-log-stream f
 | 
			
		||||
        swap [ . error. ] to-log-stream f
 | 
			
		||||
    ] recover ;
 | 
			
		||||
 | 
			
		||||
: fetch-blogroll ( blogroll -- entries )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue