fixed typos

827e9bdd · mzheng · 0a565696 · 827e9bdd
Commit 827e9bdd authored Mar 26, 2024 by mzheng
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 2 deletions

Main.hs app/Main.hs +1 -2

No files found.
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -58,14 +58,13 @@ opts = info (params <**> helper)

 main :: IO ()
 main = do
-  let a = T.pack "ok" <> T.pack "ok"
  res <- getMetadataWith [generateRequestByStructID "camera" imt] (Just 0) (Just 55) (Just EN)
  case res of
    (Left  err) -> print err
    (Right val) -> mapM_ (print . cleanShow) $ _docs val

 cleanShow :: Corpus -> Text
-cleanShow corp = T.append "\n" $ cleanAuthorsAffiliations corp
+cleanShow corp = cleanAuthorsAffiliations corp


 cleanAuthorsAffiliations :: Corpus -> Text