From 18c793df31969024213d18624323dd74c3be542d Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 2 Sep 2015 18:42:19 +0200
Subject: Adding output in order to know if the application get the correct
 material

---
 src/Model/Json/Search.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/Model')

diff --git a/src/Model/Json/Search.hs b/src/Model/Json/Search.hs
index b31b548..74f0ec9 100644
--- a/src/Model/Json/Search.hs
+++ b/src/Model/Json/Search.hs
@@ -2,7 +2,7 @@
 
 module Model.Json.Search
   ( Search(..)
-  , getMaterialIdentifier
+  , getMaterialSearch
   ) where
 
 import Control.Monad (mzero)
@@ -15,14 +15,16 @@ import Data.List (find)
 data Search = Search
   { identifier :: Text
   , kind :: Text
+  , name :: Text
   } deriving (Show)
 
 instance FromJSON Search where
   parseJSON (Object v) =
     Search <$>
       v .: "id" <*>
-      v .: "type"
+      v .: "type" <*>
+      v .: "name"
   parseJSON _ = mzero
 
-getMaterialIdentifier :: [Search] -> Maybe Text
-getMaterialIdentifier = fmap identifier . find ((==) "matiere" . kind)
+getMaterialSearch :: [Search] -> Maybe Search
+getMaterialSearch = find ((==) "matiere" . kind)
-- 
cgit v1.2.3