diff --git a/Main.hs b/Main.hs
index e5ba766..861d94a 100644
--- a/Main.hs
+++ b/Main.hs
@@ -43,12 +43,11 @@ main = interface >>= flip runApp exec
 
 
 exec :: ProgArgs -> IO ()
-exec args@ProgArgs{..} =
+exec ProgArgs{..} = do
     if dnschain
     then handleDnschain url name raw
     else handleLocal name block
 
-
 handleLocal :: String -> Bool -> IO ()
 handleLocal name block = do
     out <- readProcess "namecoind" ["name_show", name] ""