steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use error. instead of unparse

db4
Doug Coleman 2009-03-18 17:15:54 -05:00
parent 71435f6653
commit d5581b453e
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/site-watcher/site-watcher.factor
View File

@ -3,13 +3,10 @@
USING: db.sqlite db.types db.tuples kernel accessors USING: db.sqlite db.types db.tuples kernel accessors
db io.files io.files.temp locals io.directories continuations db io.files io.files.temp locals io.directories continuations
assocs sequences alarms namespaces http.client init calendar assocs sequences alarms namespaces http.client init calendar
math math.parser smtp strings io combinators arrays math math.parser smtp strings io combinators arrays debugger
generalizations combinators.smart prettyprint ; generalizations combinators.smart io.streams.string ;
IN: site-watcher IN: site-watcher
: ?unparse ( string/object -- string )
dup string? [ unparse ] unless ; inline
: site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline : site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline
[ site-watcher-path delete-file ] ignore-errors [ site-watcher-path delete-file ] ignore-errors
@ -87,7 +84,7 @@ SYMBOL: running-site-watcher
update-tuple ; update-tuple ;
: site-bad ( site error -- ) : site-bad ( site error -- )
?unparse >>error [ error. ] with-string-writer >>error
f set-notify-site-watchers f set-notify-site-watchers
now >>last-error now >>last-error
update-tuple ; update-tuple ;