Adding output in order to know if the application get the correct material

1 files changed, 3 insertions, 2 deletions

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)