Skip to content

haskell-gargantext
haskell-gargantext
Commit d84e6b93 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli
Browse files
Options

Improve diagnostic of emitTsvParseWarning

parent f18e2dbc
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/API/Node/Corpus/New.hs
View file @ d84e6b93
......@@ -305,7 +305,7 @@ addToCorpusWithTempFile user cid nwtf jobHandle = do
emitTsvParseWarning :: MonadJobStatus m => JobHandle m -> AtRow (Text, ByteString) -> m ()
emitTsvParseWarning jh (AtRow row_num (t, _r)) =
let msg = UnsafeMkHumanFriendlyErrorText ("Parsing of record at row " <> T.pack (show row_num) <> " failed due to: " <> t)
let msg = UnsafeMkHumanFriendlyErrorText ("Skipping record at row " <> T.pack (show row_num) <> " as parsing failed due to: " <> t)
in emitWarning msg jh
{-
......
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