From 8902c819c40128b11b8ad605fe5d9ddca9d25411 Mon Sep 17 00:00:00 2001
From: Rnhmjoj <micheleguerinirocco@me.com>
Date: Sat, 22 Nov 2014 15:52:47 +0100
Subject: [PATCH] Adjust whitespaces

---
 Main.hs | 69 +++++++++++++++++++++++++++++----------------------------
 1 file changed, 35 insertions(+), 34 deletions(-)

diff --git a/Main.hs b/Main.hs
index 0e282d3..206382b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -13,44 +13,45 @@ import System.Process
 import Json
 
 
-data Name = Name 
-  { name  :: String
-  , url   :: String
-  , local :: Bool
-  , block :: Bool
-  , raw   :: Bool
-  } deriving (Show)
+data Name = Name
+    { name  :: String
+    , url   :: String
+    , local :: Bool
+    , block :: Bool
+    , raw   :: Bool
+    } deriving (Show)
 
 parser :: ParserSpec Name
-parser = Name 
-  `parsedBy` reqPos   "name"                           `Descr` "Namecoin name id"
-  `andBy`    optPos   "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"
+parser = Name
+    `parsedBy` reqPos   "name"  `Descr` "Namecoin name id"
+    `andBy`    optPos   "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"
 
 main :: IO ()
 main = mkApp parser >>= flip runApp exec
 
 exec :: Name -> IO ()
-exec args@Name{..} = 
-  if local
-  then do
-    out <- readProcess "namecoind" ["name_show", name] ""
-    case decode $ C.pack out of
-      Just res -> do
-        putStrLn $ repr value
-        when block $ putStrLn (repr extra)
-        where
-          value = fromJust . decode . C.pack $ res |: "value"
-          extra = toJSON $ delete "value" res
-      Nothing  -> putStrLn "Error parsing data"
-  else do
-	  req <- get (url ++ name)
-	  print args
-	  let body = req ^. responseBody
-	  if raw
-	  then print body
-	  else case decode body of
-		  Just res -> putStrLn $ repr res
-		  Nothing  -> putStrLn "Error parsing data"
+exec args@Name{..} =
+    if local
+    then do
+        out <- readProcess "namecoind" ["name_show", name] ""
+        case decode (C.pack out) of
+            Just res -> do
+                putStrLn (repr value)
+                when block $ putStrLn (repr extra)
+                where
+                    value = fromJust . decode . C.pack $ res |: "value"
+                    extra = toJSON $ delete "value" res
+            Nothing  -> putStrLn "Error parsing data"
+    else do
+        req <- get (url ++ name)
+        let body = req ^. responseBody
+        if raw
+        then print body
+        else putStrLn $
+            case decode body of
+                Just res -> repr res
+                Nothing  -> "Error parsing data"