Remove unused variable
This commit is contained in:
parent
4fa9f736a9
commit
2535a7ee05
3
Main.hs
3
Main.hs
@ -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] ""
|
||||||
|
Loading…
Reference in New Issue
Block a user