From e2e40ccacd4447fd3a1d113d4e25e3c3cf8cab43 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <Yann.Esposito@gmail.com>
Date: Tue, 26 Nov 2013 15:32:16 +0100
Subject: [PATCH] Parse JSON

---
 .gitignore         |  1 +
 holy-project.cabal |  3 +++
 src/Main.hs        | 21 ++++++++++++++-------
 3 files changed, 18 insertions(+), 7 deletions(-)

diff --git a/.gitignore b/.gitignore
index 3a124cb..b9bd584 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,5 +2,6 @@
 cabal.sandbox.config
 dist
 *.swp
+*.swo
 *~
 .ghci
diff --git a/holy-project.cabal b/holy-project.cabal
index 6197c05..2e6fdb7 100644
--- a/holy-project.cabal
+++ b/holy-project.cabal
@@ -44,7 +44,10 @@ executable holy-project
                         , process
                         , random
                         , http-conduit
+                        , lens
+                        , lens-aeson
                         , aeson
+                        , text
   -- from Tasty cabal with ansi-terminal
   cpp-options:          -DCOLORS
   hs-source-dirs:       src
diff --git a/src/Main.hs b/src/Main.hs
index 5f16c79..82673be 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -31,8 +31,12 @@ import Control.Exception
 import System.IO.Error
 import Control.Monad                (guard)
 -- HTTP request and JSON handling
-import qualified Data.ByteString.Char8 as C
 import Network.HTTP.Conduit
+import Control.Lens.Operators       ((^?))
+import Control.Lens.Aeson
+import Data.Aeson.Encode            (fromValue)
+import qualified Data.Text.Lazy as TLZ
+import qualified Data.Text.Lazy.Builder as TLB
 
 -- Get external file of package
 import Paths_holy_project
@@ -278,7 +282,7 @@ getNameAndMail gitConfigContent = (getFirstValueFor splitted "name",
 -- Get the first line which start with
 -- 'elem =' and return the third field (value)
 getFirstValueFor :: [[LZ.ByteString]] -> String -> Maybe String
-getFirstValueFor splitted key = firstJust (map (getValueForKey key) splitted)
+getFirstValueFor splitted keyname = firstJust (map (getValueForKey keyname) splitted)
 
 -- return the first Just value of a list of Maybe
 firstJust :: (Eq a) => [Maybe a] -> Maybe a
@@ -297,15 +301,14 @@ getValueForKey el (n:e:xs) = if (n == (LZ.pack el)) && (e == (LZ.pack "="))
                         else Nothing
 getValueForKey _ _ = Nothing
 
-
+simpleHTTPWithUserAgent :: String -> IO LZ.ByteString
 simpleHTTPWithUserAgent url = do
     r  <- parseUrl url
     let request = r { requestHeaders =  [ ("User-Agent","HTTP-Conduit") ] }
     body <- withManager $ \manager -> do
                 response <- httpLbs request manager
                 return $ responseBody response
-    let str = LZ.unpack body
-    return $ Just str
+    return body
 
 
 -- Ask the github API
@@ -313,5 +316,9 @@ simpleHTTPWithUserAgent url = do
 -- It took me way too long to get this error
 getGHUser :: String -> IO (Maybe String)
 getGHUser email = do
-            body <- simpleHTTPWithUserAgent $ "https://api.github.com/search/users?q=" ++ email
-            return body
+    url = "https://api.github.com/search/users?q=" ++ email
+    body <- simpleHTTPWithUserAgent url
+    login <- return $ body ^? key "items" . nth 0 . key "login"
+    return $ fmap jsonValueToString login
+    where
+        jsonValueToString = TLZ.unpack . TLB.toLazyText . fromValue