Small restyle

src/Main.hs

@@ -3,6 +3,7 @@
 import Json
 
 import Control.Lens
+import Control.Monad               (when)
 import Network.Wreq                (get, responseBody)
 import Data.Aeson                  (decode, toJSON)
 import Data.Maybe                  (fromJust)
@@ -30,7 +31,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
 
@@ -40,25 +41,24 @@ main = interface >>= flip runApp exec
 exec :: ProgArgs -> IO ()
 exec ProgArgs{..} =
   if dnschain
-  then handleDnschain url name raw
+  then doDnschain url name raw
-  else handleLocal name block
+  else doLocal name block
 
-handleLocal :: String -> Bool -> IO ()
+doLocal :: String -> Bool -> IO ()
-handleLocal name block = do
+doLocal name block = do
   out <- readProcess "namecoind" ["name_show", name] ""
   case decode (pack out) of
+    Nothing  -> putStrLn "Error parsing data"
     Just res -> do
       pprint $ reparse (res |: "value")
-      if block then pprint extra else return ()
+      when block (pprint extra)
       where
         reparse = fromJust . decode . pack
         extra   = toJSON (delete "value" res)
-    Nothing  -> putStrLn "Error parsing data"
 
-handleDnschain :: String -> String -> Bool -> IO ()
+doDnschain :: String -> String -> Bool -> IO ()
-handleDnschain url name raw = do
+doDnschain url name raw = do
-  req <- get (url ++ name)
+  body <- (^. responseBody) <$> get (url ++ name)
-  let body = req ^. responseBody
   if raw
   then print body
   else putStrLn $