Skip to content

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

Improve diagnostic of emitTsvParseWarning

parent 66c8c9b9
Pipeline #7516 passed with stages
          in 50 minutes and 26 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 1 deletion
          src/Gargantext/API/Node/Corpus/New.hs
          View file @ dc47aca4
          ...@@ -305,7 +305,7 @@ addToCorpusWithForm user cid nwf jobHandle = do ...@@ -305,7 +305,7 @@ addToCorpusWithForm user cid nwf jobHandle = do
          emitTsvParseWarning :: MonadJobStatus m => JobHandle m -> AtRow (Text, ByteString) -> m () emitTsvParseWarning :: MonadJobStatus m => JobHandle m -> AtRow (Text, ByteString) -> m ()
          emitTsvParseWarning jh (AtRow row_num (t, _r)) = 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 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