exit_no_feed_hosts,
exit_no_password,
exit_no_username )
-import FeedHosts (FeedHosts(..))
import qualified OptionalConfiguration as OC (
OptionalConfiguration(..),
from_rc )
-import Terminal (hPutRedLn, putGreenLn)
+import Terminal (putGreenLn, report_error)
+import TSN.FeedHosts (FeedHosts(..))
import TSN.Xml (parse_xmlfid, xml_prologue)
-report_error :: String -> IO ()
-report_error = hPutRedLn stderr
-
-
recv_line :: Handle -> IO String
recv_line h = do
line <- hGetLine h
save_document :: Configuration -> String -> IO ()
-save_document cfg doc = do
+save_document cfg doc =
case maybe_path of
Nothing ->
report_error "ERROR: document missing XML_File_ID element."