[Lighter touch for delicious polling, minimal error handling.
prb@mult.ifario.us**20080204180152] {
hunk ./src/Blog/Widgets/ChromeBackEnd.hs 25
-            ; ffd <- start_driver s (10^6)
+            ; ffd <- start_driver s (10^7)
hunk ./src/Blog/Widgets/Delicious.hs 189
-                                  ; dr <- fetch_url_data $ B.permalink m item
-                                  ; print $ "Retrieved record " ++ (show dr)
-                                  ; put_record dc (B.internal_id item) (dr,to_html dr m item)
+                                  ; mdr <- fetch_url_data $ B.permalink m item
+                                  ; case mdr of
+                                      Just dr ->
+                                          put_record dc (B.internal_id item) (dr,to_html dr m item)
+                                      Nothing ->
+                                          return ()
hunk ./src/Blog/Widgets/Delicious.hs 217
-fetch_url_data :: String -> IO DeliciousRecord
+fetch_url_data :: String -> IO (Maybe DeliciousRecord)
hunk ./src/Blog/Widgets/Delicious.hs 222
-                                return $ process_body body
+                                return . Just $ process_body body
+                            _ -> 
+                                do { print . show $ request_for_url_data url
+                                   ; print $ show res
+                                   ; return Nothing }
+                                    
}