rnhmjoj/rosa
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add description

Browse Source
This commit is contained in:
Rnhmjoj 2014-11-23 15:16:25 +01:00
parent debeeb844b
commit 7549b83bfa
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Main.hs
View File

@ -6,6 +6,7 @@ import Data.Maybe (fromJust)
import Data.HashMap.Strict (delete) import Data.HashMap.Strict (delete)
import Control.Monad (when) import Control.Monad (when)
import Control.Lens import Control.Lens
import Control.Applicative
import qualified Data.ByteString.Lazy.Char8 as C import qualified Data.ByteString.Lazy.Char8 as C
import System.Console.ArgParser import System.Console.ArgParser
@ -30,6 +31,12 @@ parser = ProgArgs
`andBy` boolFlag "block" `Descr` "Show blockchain data (require local connecton)" `andBy` boolFlag "block" `Descr` "Show blockchain data (require local connecton)"
`andBy` boolFlag "raw" `Descr` "Print raw JSON data" `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 :: ProgArgs -> IO ()
exec args@ProgArgs{..} = exec args@ProgArgs{..} =
if local if local
@ -54,4 +61,4 @@ exec args@ProgArgs{..} =
Nothing -> "Error parsing data" Nothing -> "Error parsing data"
main :: IO () main :: IO ()
main = mkApp parser >>= flip runApp exec main = interface >>= flip runApp exec