Remove unused variable

This commit is contained in:
Rnhmjoj 2014-12-27 03:32:19 +01:00
parent 4fa9f736a9
commit 2535a7ee05

View File

@ -43,12 +43,11 @@ main = interface >>= flip runApp exec
exec :: ProgArgs -> IO () exec :: ProgArgs -> IO ()
exec args@ProgArgs{..} = exec ProgArgs{..} = do
if dnschain if dnschain
then handleDnschain url name raw then handleDnschain url name raw
else handleLocal name block else handleLocal name block
handleLocal :: String -> Bool -> IO () handleLocal :: String -> Bool -> IO ()
handleLocal name block = do handleLocal name block = do
out <- readProcess "namecoind" ["name_show", name] "" out <- readProcess "namecoind" ["name_show", name] ""