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
db io.files io.files.temp locals io.directories continuations
assocs sequences alarms namespaces http.client init calendar
math math.parser smtp strings io combinators arrays
generalizations combinators.smart prettyprint ;
math math.parser smtp strings io combinators arrays debugger
generalizations combinators.smart io.streams.string ;
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 delete-file ] ignore-errors
@ -87,7 +84,7 @@ SYMBOL: running-site-watcher
update-tuple ;
: site-bad ( site error -- )
?unparse >>error
[ error. ] with-string-writer >>error
f set-notify-site-watchers
now >>last-error
update-tuple ;