Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit 47808735 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[hal] update hal commit tag

parent 48c93f8a
Pipeline #4466 failed with stages
        in 5 minutes and 13 seconds
        Hide whitespace changes
        Inline Side-by-side
        Showing with 2 additions and 2 deletions
        cabal.project
        View file @ 47808735
        ...@@ -84,7 +84,7 @@ source-repository-package ...@@ -84,7 +84,7 @@ source-repository-package
        source-repository-package source-repository-package
        type: git type: git
        location: https://gitlab.iscpif.fr/gargantext/crawlers/hal.git location: https://gitlab.iscpif.fr/gargantext/crawlers/hal.git
        tag: f7b928dab9eb14ff1a497d5e092c2224c133979e tag: 25a1e9558075462a82660987920a698b8863dd63
        source-repository-package source-repository-package
        type: git type: git
        ......
        src/Gargantext/Core/Text/Corpus/API/Hal.hs
        View file @ 47808735
        ...@@ -56,7 +56,7 @@ getC la q ml = do ...@@ -56,7 +56,7 @@ getC la q ml = do
        -- Right (len, docsC) -> pure (len, docsC .| mapMC (toDoc' la)) -- Right (len, docsC) -> pure (len, docsC .| mapMC (toDoc' la))
        toDoc' :: Lang -> HAL.Corpus -> IO HyperdataDocument toDoc' :: Lang -> HAL.Corpus -> IO HyperdataDocument
        toDoc' la h@(HAL.Corpus { .. }) = do toDoc' la (HAL.Corpus { .. }) = do
        -- printDebug "[toDoc corpus] h" h -- printDebug "[toDoc corpus] h" h
        (utctime, (pub_year, pub_month, pub_day)) <- (utctime, (pub_year, pub_month, pub_day)) <-
        Date.dateSplit la (maybe (Just $ pack $ show Defaults.year) Just _corpus_date) Date.dateSplit la (maybe (Just $ pack $ show Defaults.year) Just _corpus_date)
        ......
        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