Align some stuff

Main.hs

@@ -13,17 +13,17 @@ import Json
 
 
 data ProgArgs = ProgArgs
-  { name   :: String
-  , url    :: String
+  { name     :: String
+  , url      :: String
   , dnschain :: Bool
-  , block  :: Bool
-  , raw    :: Bool
+  , block    :: Bool
+  , raw      :: Bool
   } deriving (Show)
 
 
 parser :: ParserSpec ProgArgs
 parser = ProgArgs
-  `parsedBy` reqPos   "name"    `Descr` "Namecoin name id"
+  `parsedBy` reqPos   "name"     `Descr` "Namecoin name id"
   `andBy`    optFlag  "http://dns.dnschain.net/" "url"
                                  `Descr` "Use custom api url"
   `andBy`    boolFlag "dnschain" `Descr` "Use dnschain api"
@@ -33,7 +33,7 @@ parser = ProgArgs
 
 interface :: IO (CmdLnInterface ProgArgs)
 interface =
-  (`setAppDescr` "Query the namecoin blockchain") <$> 
+  (`setAppDescr`  "Query the namecoin blockchain") <$> 
   (`setAppEpilog` "Stat rosa pristina nomine, nomina nuda tenemus.") <$>
   mkApp parser