Skip to content

haskell-gargantext
haskell-gargantext
Commit 91a63511 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[DEBUG] message

parent 1bc8d249
Pipeline #3194 passed with stage
    in 92 minutes and 40 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 6 additions and 2 deletions
    gargantext.cabal
    View file @ 91a63511
    cabal-version: 1.12 cabal-version: 1.12
    -- This file has been generated from package.yaml by hpack version 0.34.7. -- This file has been generated from package.yaml by hpack version 0.35.0.
    -- --
    -- see: https://github.com/sol/hpack -- see: https://github.com/sol/hpack
    name: gargantext name: gargantext
    version: 0.0.6.2 version: 0.0.6.2
    synopsis: Search, map, share synopsis: Search, map, share
    description: Please see README.md description: Please see README.md
    category: Data category: Data
    ......
    src/Gargantext/API/Ngrams.hs
    View file @ 91a63511
    ...@@ -302,6 +302,10 @@ commitStatePatch listId (Versioned _p_version p) = do ...@@ -302,6 +302,10 @@ commitStatePatch listId (Versioned _p_version p) = do
    -- TODO Check this -- TODO Check this
    --q = mconcat $ take (a ^. a_version - p_version) (a ^. a_history) --q = mconcat $ take (a ^. a_version - p_version) (a ^. a_history)
    q = mconcat $ a ^. a_history q = mconcat $ a ^. a_history
    printDebug "transformWith" (p,q)
    let
    (p', q') = transformWith ngramsStatePatchConflictResolution p q (p', q') = transformWith ngramsStatePatchConflictResolution p q
    a' = a & a_version +~ 1 a' = a & a_version +~ 1
    & a_state %~ act p' & a_state %~ act p'
    ......
    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