module Main where
+import System.IO
import Control.Monad
import qualified Data.ByteString.Char8 as C (pack, unpack)
import qualified Data.ByteString.Lazy.Char8 as L (pack, unpack)
import JsonRpcClient
import Config
import PowerDns
-import NmcJson
+import NmcRpc
+import NmcDom
confFile = "/etc/namecoin.conf"
cfg <- readConfig confFile
+ hSetBuffering stdin LineBuffering
+ hSetBuffering stdout LineBuffering
ver <- do
let
loopErr e = forever $ do