Skip to content

haskell-gargantext
haskell-gargantext
Commit 444d9e8d authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Date function

parent 7516792b
Pipeline #3458 failed with stage
    in 73 minutes and 37 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 3 additions and 3 deletions
    src/Gargantext/Core/Text/Corpus/Parsers/Date.hs
    View file @ 444d9e8d
    ...@@ -74,10 +74,10 @@ type Day = Int ...@@ -74,10 +74,10 @@ type Day = Int
    -- 1900-04-01 00:00:00 UTC -- 1900-04-01 00:00:00 UTC
    parse :: Lang -> Text -> IO UTCTime parse :: Lang -> Text -> IO UTCTime
    parse lang s = do parse lang s = do
    --printDebug "Date: " s printDebug "Date: " s
    dateStr' <- pure $ dateFlow (DucklingFailure s) -- parseRawSafe lang s let result = dateFlow (DucklingFailure s)
    --printDebug "Date': " dateStr' --printDebug "Date': " dateStr'
    case (dateFlow dateStr') of case result of
    DateFlowSuccess ok -> pure ok DateFlowSuccess ok -> pure ok
    DateFlowFailure -> (withDebugMode (DebugMode True) DateFlowFailure -> (withDebugMode (DebugMode True)
    "[G.C.T.P.T.Date parse]" (lang,s) "[G.C.T.P.T.Date parse]" (lang,s)
    ......
    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