Skip to content

H
hal
Commit 827e9bdd authored by mzheng's avatar mzheng
Browse files
Options

fixed typos

parent 0a565696
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 2 deletions
app/Main.hs
View file @ 827e9bdd
...@@ -58,14 +58,13 @@ opts = info (params <**> helper) ...@@ -58,14 +58,13 @@ opts = info (params <**> helper)
main :: IO () main :: IO ()
main = do main = do
let a = T.pack "ok" <> T.pack "ok"
res <- getMetadataWith [generateRequestByStructID "camera" imt] (Just 0) (Just 55) (Just EN) res <- getMetadataWith [generateRequestByStructID "camera" imt] (Just 0) (Just 55) (Just EN)
case res of case res of
(Left err) -> print err (Left err) -> print err
(Right val) -> mapM_ (print . cleanShow) $ _docs val (Right val) -> mapM_ (print . cleanShow) $ _docs val
cleanShow :: Corpus -> Text cleanShow :: Corpus -> Text
cleanShow corp = T.append "\n" $ cleanAuthorsAffiliations corp cleanShow corp = cleanAuthorsAffiliations corp
cleanAuthorsAffiliations :: Corpus -> Text cleanAuthorsAffiliations :: Corpus -> Text
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment