Make some order

Main.hs

@@ -10,10 +10,10 @@ import Control.Lens
 import qualified Data.ByteString.Lazy.Char8 as C
 import System.Console.ArgParser
 import System.Process
+
 import Json
 
-
+data ProgArgs = ProgArgs
-data Name = Name
     { name  :: String
     , url   :: String
     , local :: Bool
@@ -21,8 +21,8 @@ data Name = Name
     , raw   :: Bool
     } deriving (Show)
 
-parser :: ParserSpec Name
+parser :: ParserSpec ProgArgs
-parser = Name
+parser = ProgArgs
     `parsedBy` reqPos   "name"  `Descr` "Namecoin name id"
     `andBy`    optPos   "http://dns.dnschain.net/" "url"
                                 `Descr` "Use custom dnschain API url"
@@ -30,11 +30,8 @@ parser = Name
     `andBy`    boolFlag "block" `Descr` "Show blockchain data (require local connecton)"
     `andBy`    boolFlag "raw"   `Descr` "Print raw JSON data"
 
-main :: IO ()
+exec :: ProgArgs -> IO ()
-main = mkApp parser >>= flip runApp exec
+exec args@ProgArgs{..} =
-
-exec :: Name -> IO ()
-exec args@Name{..} =
     if local
     then do
         out <- readProcess "namecoind" ["name_show", name] ""
@@ -55,3 +52,6 @@ exec args@Name{..} =
             case decode body of
                 Just res -> repr res
                 Nothing  -> "Error parsing data"
+
+main :: IO ()
+main = mkApp parser >>= flip runApp exec