diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
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) |