rosa 0.1.0.0 → 0.1.1.0

raw patch · 2 files changed

+10/−3 lines, 2 files

Files

Main.hs +9/−2
rosa.cabal +1/−1

Main.hs view

@@ -6,6 +6,7 @@ import Data.HashMap.Strict (delete) import Control.Monad       (when) import Control.Lens+import Control.Applicative  import qualified Data.ByteString.Lazy.Char8 as C import System.Console.ArgParser@@ -24,12 +25,18 @@ parser :: ParserSpec ProgArgs parser = ProgArgs     `parsedBy` reqPos   "name"  `Descr` "Namecoin name id"-    `andBy`    optPos   "http://dns.dnschain.net/" "url"+    `andBy`    optFlag   "http://dns.dnschain.net/" "url"                                 `Descr` "Use custom dnschain API url"     `andBy`    boolFlag "local" `Descr` "Use local namecoind db"     `andBy`    boolFlag "block" `Descr` "Show blockchain data (require local connecton)"     `andBy`    boolFlag "raw"   `Descr` "Print raw JSON data" +interface :: IO (CmdLnInterface ProgArgs)+interface =+    (`setAppDescr` "Query the namecoin blockchain") <$> +    (`setAppEpilog` "Stat rosa pristina nomine, nomina nuda tenemus.") <$>+    mkApp parser+ exec :: ProgArgs -> IO () exec args@ProgArgs{..} =     if local@@ -54,4 +61,4 @@                 Nothing  -> "Error parsing data"  main :: IO ()-main = mkApp parser >>= flip runApp exec+main = interface >>= flip runApp exec

rosa.cabal view

@@ -1,5 +1,5 @@ name:                rosa-version:             0.1.0.0+version:             0.1.1.0 synopsis:            Query the namecoin blockchain description: