From 7549b83bfa16e6b1ad0b9f1602ba3a0e8d5e15bb Mon Sep 17 00:00:00 2001
From: Rnhmjoj <micheleguerinirocco@me.com>
Date: Sun, 23 Nov 2014 15:16:25 +0100
Subject: [PATCH] Add description

---
 Main.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index 1e4640f..0d96382 100644
--- a/Main.hs
+++ b/Main.hs
@@ -6,6 +6,7 @@ import Data.Maybe          (fromJust)
 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
@@ -30,6 +31,12 @@ parser = ProgArgs
     `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 @@ exec args@ProgArgs{..} =
                 Nothing  -> "Error parsing data"
 
 main :: IO ()
-main = mkApp parser >>= flip runApp exec
\ No newline at end of file
+main = interface >>= flip runApp exec
\ No newline at end of file