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/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index d561419..f9054af 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -64,8 +64,9 @@ getHtmlPerfumes material = do
         Left error ->
           return . Left . T.pack $ error
         Right searches ->
-          case getMaterialIdentifier searches of
+          case getMaterialSearch searches of
             Nothing ->
               return . Left $ T.concat [ "No material identifier found for ", material ]
-            Just identifier -> do
+            Just (Search identifier _ name) -> do
+              T.putStrLn $ T.concat [ "Found material « ", name, " » for ", material, "." ]
               fmap parsePerfumes <$> getPage (getMaterialURL identifier)
-- 
cgit v1.2.3