Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Christian Merten
haskell-gargantext
Commits
f994a3c2
Verified
Commit
f994a3c2
authored
Feb 07, 2024
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[TEMP] some temporary commits
parent
539a9ae2
Changes
18
Hide whitespace changes
Inline
Side-by-side
Showing
18 changed files
with
38 additions
and
758 deletions
+38
-758
cabal.project.freeze
cabal.project.freeze
+0
-720
gargantext.cabal
gargantext.cabal
+2
-2
Public.hs
src/Gargantext/API/Public.hs
+1
-1
Distributional.hs
src/Gargantext/Core/Methods/Similarities/Distributional.hs
+3
-3
NodeStory.hs
src/Gargantext/Core/NodeStory.hs
+1
-1
Hal.hs
src/Gargantext/Core/Text/Corpus/API/Hal.hs
+2
-2
CSV.hs
src/Gargantext/Core/Text/Corpus/Parsers/CSV.hs
+1
-1
FrameWrite.hs
src/Gargantext/Core/Text/Corpus/Parsers/FrameWrite.hs
+1
-1
Istex.hs
src/Gargantext/Core/Text/Corpus/Parsers/JSON/Istex.hs
+3
-3
Learn.hs
src/Gargantext/Core/Text/List/Learn.hs
+1
-1
Utils.hs
src/Gargantext/Core/Text/Metrics/Utils.hs
+1
-1
Eleve.hs
src/Gargantext/Core/Text/Terms/Eleve.hs
+1
-1
PhyloExport.hs
src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
+5
-5
PhyloMaker.hs
src/Gargantext/Core/Viz/Phylo/PhyloMaker.hs
+5
-5
PhyloTools.hs
src/Gargantext/Core/Viz/Phylo/PhyloTools.hs
+6
-6
SynchronicClustering.hs
src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
+1
-1
TemporalMatching.hs
src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
+3
-3
Ngrams.hs
src/Gargantext/Database/Query/Table/Ngrams.hs
+1
-1
No files found.
cabal.project.freeze
deleted
100644 → 0
View file @
539a9ae2
active-repositories: hackage.haskell.org:merge
constraints: any.Cabal ==3.8.1.0,
any.Cabal-syntax ==3.8.1.0,
any.Glob ==0.10.2,
any.HSvm ==0.1.1.3.22,
any.HTTP ==4000.4.1,
HTTP -conduit10 +network-uri -warn-as-error -warp-tests,
any.HUnit ==1.6.2.0,
any.JuicyPixels ==3.3.8,
JuicyPixels -mmap,
any.KMP ==0.2.0.0,
any.List ==0.6.2,
any.MissingH ==1.4.3.0,
MissingH +network--ge-3_0_0,
any.MonadRandom ==0.6,
any.OneTuple ==0.4.1.1,
any.Only ==0.1,
any.QuickCheck ==2.14.3,
QuickCheck -old-random +templatehaskell,
any.RSA ==2.4.1,
any.SHA ==1.6.4.4,
SHA -exe,
any.StateVar ==1.2.2,
any.Unique ==0.4.7.8,
any.abstract-deque ==0.3,
abstract-deque -usecas,
any.accelerate ==1.3.0.0,
accelerate +bounds-checks -debug -internal-checks -nofib -unsafe-checks,
any.accelerate-arithmetic ==1.0.0.1,
any.accelerate-llvm ==1.3.0.0,
any.accelerate-llvm-native ==1.3.0.0,
any.accelerate-utility ==1.0.0.1,
any.adjunctions ==4.4.2,
any.aeson ==2.1.2.1,
aeson -cffi +ordered-keymap,
any.aeson-pretty ==0.8.9,
aeson-pretty -lib-only,
any.aeson-qq ==0.8.4,
any.alex ==3.3.0.0,
any.ansi-terminal ==0.11.5,
ansi-terminal -example -win32-2-13-1,
any.ansi-terminal-types ==0.11.5,
any.ansi-wl-pprint ==0.6.9,
ansi-wl-pprint -example,
any.appar ==0.1.8,
any.array ==0.5.4.0,
any.asn1-encoding ==0.9.6,
any.asn1-parse ==0.9.5,
any.asn1-types ==0.3.4,
any.assoc ==1.1,
assoc +tagged,
any.async ==2.2.4,
async -bench,
any.atomic-primops ==0.8.4,
atomic-primops -debug,
any.attoparsec ==0.14.4,
attoparsec -developer,
any.attoparsec-iso8601 ==1.1.0.0,
any.authenticate-oauth ==1.7,
any.auto-update ==0.1.6,
any.barbies ==2.0.4.0,
any.base ==4.17.2.0,
any.base-compat ==0.12.3,
any.base-compat-batteries ==0.12.3,
any.base-orphans ==0.9.1,
any.base-unicode-symbols ==0.2.4.2,
base-unicode-symbols +base-4-8 -old-base,
any.base16-bytestring ==1.0.2.0,
any.base64 ==0.4.2.4,
any.base64-bytestring ==1.2.1.0,
any.basement ==0.0.16,
any.basic-prelude ==0.7.0,
any.bifunctors ==5.5.15,
bifunctors +semigroups +tagged,
any.bimap ==0.5.0,
any.binary ==0.8.9.1,
any.binary-orphans ==1.0.4.1,
any.bindings-DSL ==1.0.25,
any.bitvec ==1.1.5.0,
bitvec +simd,
any.blaze-builder ==0.4.2.3,
any.blaze-html ==0.9.1.2,
any.blaze-markup ==0.8.3.0,
any.blaze-svg ==0.3.7,
any.boolexpr ==0.3,
any.boring ==0.2.1,
boring +tagged,
any.bsb-http-chunked ==0.0.0.4,
any.byteable ==0.1.1,
any.byteorder ==1.0.4,
any.bytestring ==0.11.5.2,
any.bytestring-builder ==0.10.8.2.0,
bytestring-builder +bytestring_has_builder,
any.bzlib-conduit ==0.3.0.2,
any.c2hs ==0.28.8,
c2hs +base3 -regression,
any.cabal-doctest ==1.0.9,
any.call-stack ==0.4.0,
any.case-insensitive ==1.2.1.0,
any.cassava ==0.5.3.0,
cassava -bytestring--lt-0_10_4,
any.cassava-conduit ==0.6.5,
cassava-conduit +small_base,
any.cborg ==0.2.9.0,
cborg +optimize-gmp,
any.cereal ==0.5.8.3,
cereal -bytestring-builder,
any.charset ==0.3.10,
any.chunked-data ==0.3.1,
any.cipher-aes ==0.2.11,
cipher-aes +support_aesni,
any.citeproc ==0.8.1,
citeproc -executable -icu,
any.classy-prelude ==1.5.0.3,
any.clock ==0.8.4,
clock -llvm,
any.cmdargs ==0.10.22,
cmdargs +quotation -testprog,
any.code-page ==0.2.1,
any.colour ==2.3.6,
any.commonmark ==0.2.3,
any.commonmark-extensions ==0.2.3.6,
any.commonmark-pandoc ==0.2.1.3,
any.comonad ==5.0.8,
comonad +containers +distributive +indexed-traversable,
any.concise ==0.1.0.1,
any.concurrent-output ==1.10.20,
any.conduit ==1.3.5,
any.conduit-extra ==1.3.6,
any.conduit-zstd ==0.0.2.0,
any.connection ==0.3.1,
any.constraints ==0.13.4,
any.constraints-extras ==0.4.0.0,
constraints-extras +build-readme,
any.containers ==0.6.7,
any.contravariant ==1.5.5,
contravariant +semigroups +statevar +tagged,
any.cookie ==0.4.6,
any.cpphs ==1.20.9.1,
cpphs -old-locale,
any.cprng-aes ==0.6.1,
any.crawlerArxiv ==0.1.0.0,
any.crawlerHAL ==0.1.0.0,
any.crawlerISTEX ==0.1.0.0,
any.crawlerIsidore ==0.1.0.0,
any.crawlerPubMed ==0.1.0.0,
any.criterion ==1.6.1.0,
criterion -embed-data-files -fast,
any.criterion-measurement ==0.2.1.0,
criterion-measurement -fast,
any.cron ==0.7.0,
cron -lib-werror,
any.crypto-api ==0.13.3,
crypto-api -all_cpolys,
any.crypto-cipher-types ==0.0.9,
any.crypto-pubkey-types ==0.4.3,
any.crypto-random ==0.0.9,
any.cryptohash ==0.11.9,
any.cryptohash-md5 ==0.11.101.0,
any.cryptohash-sha1 ==0.11.101.0,
any.crypton ==0.32,
crypton -check_alignment +integer-gmp -old_toolchain_inliner +support_aesni +support_deepseq +support_pclmuldq +support_rdrand -support_sse +use_target_attributes,
any.cryptonite ==0.30,
cryptonite -check_alignment +integer-gmp -old_toolchain_inliner +support_aesni +support_deepseq -support_pclmuldq +support_rdrand -support_sse +use_target_attributes,
any.data-default ==0.7.1.1,
any.data-default-class ==0.1.2.0,
any.data-default-instances-containers ==0.0.1,
any.data-default-instances-dlist ==0.0.1,
any.data-default-instances-old-locale ==0.0.1,
any.data-fix ==0.3.2,
any.data-ordlist ==0.4.7.0,
any.data-time-segment ==0.1.0.0,
any.dec ==0.0.5,
any.deepseq ==1.4.8.0,
any.dense-linear-algebra ==0.1.0.0,
any.dependent-sum ==0.7.1.0,
any.deriving-aeson ==0.2.9,
any.digest ==0.0.1.7,
digest +pkg-config,
any.directory ==1.3.7.1,
any.distributive ==0.6.2.1,
distributive +semigroups +tagged,
any.dlist ==1.0,
dlist -werror,
any.dlist-instances ==0.1.1.1,
any.doclayout ==0.4.0.1,
any.doctemplates ==0.11,
any.double-conversion ==2.0.4.2,
double-conversion -developer +embedded_double_conversion,
any.duckling ==0.2.0.0,
any.easy-file ==0.2.5,
any.eigen ==3.3.7.0,
any.either ==5.0.2,
any.ekg-core ==0.1.1.7,
any.ekg-json ==0.1.0.8,
any.emojis ==0.1.3,
any.enclosed-exceptions ==1.0.3,
any.entropy ==0.4.1.10,
entropy -donotgetentropy,
any.epo-api-client ==0.1.0.0,
any.erf ==2.0.0.0,
any.exceptions ==0.10.5,
any.extensible-exceptions ==0.1.1.4,
any.extra ==1.7.14,
any.fail ==4.9.0.0,
any.fast-logger ==3.2.2,
any.fast-tagsoup ==1.0.14,
any.fclabels ==2.0.5.1,
any.fgl ==5.8.0.0,
fgl +containers042,
any.file-embed ==0.0.15.0,
any.file-embed-lzma ==0.0.1,
any.filelock ==0.1.1.7,
any.filepath ==1.4.2.2,
any.filepattern ==0.1.3,
any.fmt ==0.6.3.0,
any.foldable1-classes-compat ==0.1,
foldable1-classes-compat +tagged,
any.formatting ==7.2.0,
formatting +no-double-conversion,
any.free ==5.1.10,
any.full-text-search ==0.2.1.4,
full-text-search -build-search-demo,
any.fullstop ==0.1.4,
any.gargantext-graph ==0.1.0.0,
any.gargantext-prelude ==0.1.0.0,
any.generic-deriving ==1.14.5,
generic-deriving +base-4-9,
any.generic-monoid ==0.1.0.1,
any.generically ==0.1.1,
any.generics-sop ==0.5.1.3,
any.ghc ==9.4.7,
any.ghc-bignum ==1.3,
any.ghc-boot ==9.4.7,
any.ghc-boot-th ==9.4.7,
any.ghc-heap ==9.4.7,
any.ghc-lib-parser ==9.4.7.20230826,
ghc-lib-parser +threaded-rts,
any.ghc-lib-parser-ex ==9.4.0.0,
ghc-lib-parser-ex -auto -no-ghc-lib,
any.ghc-parser ==0.2.6.0,
any.ghc-paths ==0.1.0.12,
any.ghc-prim ==0.9.1,
any.ghc-syntax-highlighter ==0.0.9.0,
ghc-syntax-highlighter -dev,
any.ghci ==9.4.7,
any.githash ==0.1.7.0,
any.graphviz ==2999.20.1.0,
graphviz -test-parsing,
any.gridtables ==0.1.0.0,
any.groups ==0.5.3,
any.haddock-library ==1.11.0,
any.half ==0.3.1,
any.happy ==1.20.1.1,
any.hashable ==1.4.3.0,
hashable +integer-gmp -random-initial-seed,
any.hashtables ==1.3.1,
hashtables -bounds-checking -debug -detailed-profiling -portable -sse42 +unsafe-tricks,
any.haskeline ==0.8.2,
any.haskell-igraph ==0.10.4,
any.haskell-lexer ==1.1.1,
any.haskell-src-exts ==1.23.1,
any.haskell-src-meta ==0.8.12,
any.hedgehog ==1.2,
any.hexpat ==0.20.13,
hexpat -bundle,
any.hgal ==2.0.0.2,
any.hlcm ==0.2.2,
any.hlint ==3.5,
hlint +ghc-lib +gpl -hsyaml +threaded,
any.hmatrix ==0.20.2,
hmatrix -disable-default-paths -no-random_r -openblas,
any.hmatrix-gsl-stats ==0.4.1.8,
hmatrix-gsl-stats -onlygsl,
any.hourglass ==0.2.12,
any.hpc ==0.6.1.0,
any.hsc2hs ==0.68.10,
hsc2hs -in-ghc-tree,
any.hscolour ==1.24.4,
any.hsinfomap ==0.1,
any.hslogger ==1.3.1.0,
hslogger +network--gt-3_0_0,
any.hsparql ==0.3.8,
any.hspec ==2.11.1,
any.hspec-core ==2.11.1,
any.hspec-discover ==2.11.1,
any.hspec-expectations ==0.8.3,
any.hspec-wai ==0.11.1,
any.hspec-wai-json ==0.11.0,
any.hstatistics ==0.3.1,
any.http-api-data ==0.5,
http-api-data -use-text-show,
any.http-client ==0.7.14,
http-client +network-uri,
any.http-client-tls ==0.3.6.1,
any.http-conduit ==2.3.8.1,
http-conduit +aeson,
any.http-date ==0.0.11,
any.http-media ==0.8.1.1,
any.http-types ==0.12.3,
any.http2 ==4.1.4,
http2 -devel -h2spec,
any.hxt ==9.3.1.22,
hxt +network-uri -profile,
any.hxt-charproperties ==9.5.0.0,
hxt-charproperties -profile,
any.hxt-regex-xmlschema ==9.2.0.7,
hxt-regex-xmlschema -profile,
any.hxt-unicode ==9.0.2.4,
any.ihaskell ==0.11.0.0,
ihaskell +use-hlint,
any.indexed-profunctors ==0.1.1.1,
any.indexed-traversable ==0.1.3,
any.indexed-traversable-instances ==0.1.1.2,
any.ini ==0.4.2,
any.insert-ordered-containers ==0.2.5.3,
any.integer-gmp ==1.1,
any.integer-logarithms ==1.0.3.1,
integer-logarithms -check-bounds +integer-gmp,
any.invariant ==0.6.2,
any.io-streams ==1.5.2.2,
io-streams +network -nointeractivetests +zlib,
any.io-streams-haproxy ==1.0.1.0,
any.iproute ==1.7.12,
any.ipynb ==0.2,
any.ipython-kernel ==0.11.0.0,
ipython-kernel -examples,
any.iso639 ==0.1.0.3,
any.jira-wiki-markup ==1.5.1,
any.jose ==0.10,
jose -demos,
any.js-chart ==2.9.4.1,
any.json-stream ==0.4.5.3,
json-stream -conduit,
any.kan-extensions ==5.2.5,
any.keys ==3.12.3,
any.language-c ==0.9.2,
language-c -allwarnings +iecfpextension +usebytestrings,
any.lens ==5.2.3,
lens -benchmark-uniplate -dump-splices +inlining -j +test-hunit +test-properties +test-templates +trustworthy,
any.lens-aeson ==1.2.3,
any.libffi ==0.2.1,
libffi +ghc-bundled-libffi,
any.libyaml ==0.1.2,
libyaml -no-unicode -system-libyaml,
any.lifted-async ==0.10.2.4,
any.lifted-base ==0.2.3.12,
any.listsafe ==0.1.0.1,
any.llvm-hs ==12.0.0,
llvm-hs -debug -llvm-with-rtti +shared-llvm,
any.llvm-hs-pure ==12.0.0,
any.located-base ==0.1.1.1,
any.lockfree-queue ==0.2.4,
any.logging-effect ==1.3.12,
any.logict ==0.8.0.0,
any.loop ==0.3.0,
any.lzma ==0.0.1.0,
lzma +pkgconfig,
any.math-functions ==0.3.4.3,
math-functions +system-erf +system-expm1,
any.matrix ==0.3.6.1,
any.megaparsec ==9.3.1,
megaparsec -dev,
any.memory ==0.18.0,
memory +support_bytestring +support_deepseq,
any.microlens ==0.4.13.1,
any.microstache ==1.0.2.3,
any.mime-mail ==0.5.1,
any.mime-types ==0.1.2.0,
any.mmorph ==1.2.0,
any.modern-uri ==0.3.6.1,
modern-uri -dev,
any.monad-control ==1.0.3.1,
any.monad-logger ==0.3.40,
monad-logger +template_haskell,
any.monad-loops ==0.4.3,
monad-loops +base4,
any.monad-time ==0.4.0.0,
any.mono-traversable ==1.0.15.3,
any.mono-traversable-instances ==0.1.1.0,
any.monoid-extras ==0.6.2,
any.morpheus-graphql ==0.24.3,
any.morpheus-graphql-app ==0.24.3,
any.morpheus-graphql-client ==0.24.3,
any.morpheus-graphql-code-gen ==0.24.3,
any.morpheus-graphql-code-gen-utils ==0.24.3,
any.morpheus-graphql-core ==0.24.3,
any.morpheus-graphql-server ==0.24.3,
any.morpheus-graphql-subscriptions ==0.24.3,
any.morpheus-graphql-tests ==0.24.3,
any.mtl ==2.2.2,
any.mtl-compat ==0.2.2,
mtl-compat -two-point-one -two-point-two,
any.mutable-containers ==0.3.4.1,
any.mwc-random ==0.15.0.2,
any.natural-transformation ==0.4,
any.network ==3.1.4.0,
network -devel,
any.network-bsd ==2.8.1.0,
any.network-byte-order ==0.1.7,
any.network-info ==0.2.1,
any.network-uri ==2.6.4.2,
any.old-locale ==1.0.0.7,
any.old-time ==1.1.0.3,
any.opaleye ==0.9.6.1,
any.openalex ==0.1.0.0,
any.optics-core ==0.4.1.1,
optics-core -explicit-generic-labels,
any.optics-extra ==0.4.2.1,
any.optics-th ==0.4.1,
any.optparse-applicative ==0.17.1.0,
optparse-applicative +process,
any.optparse-generic ==1.4.9,
any.optparse-simple ==0.1.1.4,
optparse-simple -build-example,
any.ordered-containers ==0.2.3,
any.pandoc ==3.0.1,
pandoc -embed_data_files,
any.pandoc-types ==1.23.1,
any.parallel ==3.2.2.0,
any.parsec ==3.1.16.1,
any.parser-combinators ==1.3.0,
parser-combinators -dev,
any.parsers ==0.12.11,
parsers +attoparsec +binary +parsec,
any.password ==3.0.2.1,
password +argon2 +bcrypt +pbkdf2 +scrypt,
any.password-types ==1.0.0.0,
any.patches-class ==0.1.0.1,
any.patches-map ==0.1.0.1,
any.path ==0.9.5,
path -dev,
any.path-io ==1.8.1,
path-io -dev,
any.pem ==0.2.4,
any.pointed ==5.0.4,
pointed +comonad +containers +kan-extensions +semigroupoids +semigroups +stm +tagged +transformers +unordered-containers,
any.polyparse ==1.13,
any.port-utils ==0.2.1.0,
any.postgres-options ==0.2.1.0,
any.postgresql-libpq ==0.9.5.0,
postgresql-libpq -use-pkg-config,
any.postgresql-simple ==0.6.5.1,
any.pretty ==1.1.3.6,
any.pretty-show ==1.10,
any.pretty-simple ==4.1.2.0,
pretty-simple -buildexample +buildexe,
any.prettyprinter ==1.7.1,
prettyprinter -buildreadme +text,
any.prettyprinter-ansi-terminal ==1.1.3,
any.primitive ==0.8.0.0,
any.probability ==0.2.8,
probability +splitbase,
any.process ==1.6.17.0,
any.product-profunctors ==0.11.1.1,
any.profunctors ==5.6.2,
any.protolude ==0.3.3,
any.psqueues ==0.2.7.3,
any.pureMD5 ==2.1.4,
pureMD5 -test,
any.qrcode-core ==0.9.9,
any.qrcode-juicypixels ==0.8.5,
any.quickcheck-instances ==0.3.30,
quickcheck-instances -bytestring-builder,
any.quickcheck-io ==0.2.0,
any.rake ==0.0.1,
any.random ==1.2.1,
any.random-shuffle ==0.0.4,
any.raw-strings-qq ==1.1,
any.rdf4h ==3.1.1,
any.readable ==0.3.1,
any.recover-rtti ==0.4.3,
any.recv ==0.1.0,
any.refact ==0.3.0.2,
any.reflection ==2.1.7,
reflection -slow +template-haskell,
any.regex-base ==0.94.0.2,
any.regex-compat ==0.95.2.1,
any.regex-pcre ==0.95.0.0,
regex-pcre +pkg-config,
any.regex-posix ==0.96.0.1,
regex-posix -_regex-posix-clib,
any.regex-tdfa ==1.3.2.2,
regex-tdfa +doctest -force-o2,
any.relude ==1.2.1.0,
any.replace-attoparsec ==1.5.0.0,
any.req ==3.13.0,
req -dev,
any.resource-pool ==0.4.0.0,
any.resourcet ==1.2.6,
any.retry ==0.9.3.1,
retry -lib-werror,
any.rts ==1.0.2,
any.safe ==0.3.19,
any.safe-exceptions ==0.1.7.4,
any.say ==0.1.0.1,
any.scientific ==0.3.7.0,
scientific -bytestring-builder -integer-simple,
any.securemem ==0.1.10,
any.semialign ==1.3,
semialign +semigroupoids,
any.semigroupoids ==5.3.7,
semigroupoids +comonad +containers +contravariant +distributive +tagged +unordered-containers,
any.semigroups ==0.20,
semigroups +binary +bytestring -bytestring-builder +containers +deepseq +hashable +tagged +template-haskell +text +transformers +unordered-containers,
any.serialise ==0.2.6.0,
serialise +newtime15,
any.servant ==0.20.1,
any.servant-auth ==0.4.1.0,
any.servant-auth-client ==0.4.1.1,
any.servant-auth-server ==0.4.8.0,
any.servant-auth-swagger ==0.2.10.2,
any.servant-blaze ==0.9.1,
any.servant-cassava ==0.10.2,
any.servant-client ==0.19,
any.servant-client-core ==0.20,
any.servant-docs ==0.12,
any.servant-ekg ==0.3.1,
any.servant-flatten ==0.2,
any.servant-foreign ==0.15.4,
any.servant-job ==0.2.0.0,
any.servant-multipart ==0.12.1,
any.servant-multipart-api ==0.12.1,
any.servant-server ==0.20,
any.servant-swagger ==1.1.11,
any.servant-swagger-ui ==0.3.5.5.0.0,
any.servant-swagger-ui-core ==0.3.5,
any.servant-xml-conduit ==0.1.0.4,
any.shelly ==1.12.1,
shelly -build-examples -lifted,
any.simple-reflect ==0.3.3,
any.simple-sendfile ==0.2.32,
simple-sendfile +allow-bsd -fallback,
any.singleton-bool ==0.1.6,
any.singletons ==3.0.2,
any.singletons-base ==3.1.1,
any.singletons-th ==3.1.1,
any.skylighting ==0.13.4.1,
skylighting -executable,
any.skylighting-core ==0.13.4.1,
skylighting-core -executable,
any.skylighting-format-ansi ==0.1,
any.skylighting-format-blaze-html ==0.1.1.1,
any.skylighting-format-context ==0.1.0.2,
any.skylighting-format-latex ==0.1,
any.smallcheck ==1.2.1.1,
any.smtp-mail ==0.3.0.0,
any.snap-core ==1.0.5.1,
snap-core -debug +network-uri -portable,
any.snap-server ==1.1.2.1,
snap-server -build-pong -build-testserver -debug -openssl -portable,
any.socks ==0.6.1,
any.some ==1.0.4.1,
some +newtype-unsafe,
any.sop-core ==0.5.0.2,
any.sparse-linear ==0.1.0.0,
any.split ==0.2.3.5,
any.splitmix ==0.1.0.5,
splitmix -optimised-mixer,
any.statistics ==0.16.2.1,
any.stemmer ==0.5.2,
any.stm ==2.5.1.0,
any.stm-chans ==3.0.0.9,
any.stm-delay ==0.1.1.1,
any.storable-complex ==0.2.3.0,
any.streaming-commons ==0.2.2.6,
streaming-commons -use-bytestring-builder,
any.strict ==0.5,
any.string-conversions ==0.4.0.1,
any.stringsearch ==0.3.6.6,
stringsearch -base3 +base4,
any.swagger2 ==2.8.7,
any.syb ==0.7.2.4,
any.system-cxx-std-lib ==1.0,
any.system-filepath ==0.4.14,
any.tagged ==0.8.7,
tagged +deepseq +transformers,
any.taggy ==0.2.1,
any.taggy-lens ==0.1.2,
any.tagsoup ==0.14.8,
any.tasty ==1.4.3,
tasty +unix,
any.tasty-bench ==0.3.5,
tasty-bench -debug +tasty,
any.tasty-hspec ==1.2.0.3,
any.tasty-hunit ==0.10.1,
any.tasty-quickcheck ==0.10.2,
any.tasty-smallcheck ==0.8.2,
any.template-haskell ==2.19.0.0,
any.temporary ==1.3,
any.terminal-size ==0.3.4,
any.terminfo ==0.4.1.5,
any.texmath ==0.12.8.3,
texmath -executable -server,
any.text ==2.0.2,
any.text-conversions ==0.3.1.1,
any.text-format ==0.3.2.1,
text-format -developer,
any.text-icu ==0.8.0.4,
any.text-metrics ==0.3.2,
text-metrics -dev,
any.text-regex-replace ==0.1.1.5,
any.text-short ==0.1.5,
text-short -asserts,
any.text-show ==3.10.4,
text-show +base-4-9 +integer-gmp +new-functor-classes +template-haskell-2-11,
any.text16-compat ==0.1.0.0,
text16-compat -enable-golden-test-generation,
any.tf-random ==0.5,
any.th-abstraction ==0.4.5.0,
any.th-compat ==0.1.4,
any.th-desugar ==1.14,
any.th-expand-syns ==0.4.11.0,
any.th-lift ==0.8.4,
any.th-lift-instances ==0.1.20,
any.th-orphans ==0.13.14,
any.th-reify-many ==0.1.10,
any.these ==1.2,
any.time ==1.12.2,
any.time-compat ==1.9.6.1,
time-compat -old-locale,
any.time-locale-compat ==0.1.1.5,
time-locale-compat -old-locale,
any.time-manager ==0.0.1,
any.timezone-olson ==0.2.1,
any.timezone-series ==0.1.13,
any.tls ==1.6.0,
tls +compat -hans +network,
any.tmp-postgres ==1.34.1.0,
any.transformers ==0.5.6.2,
any.transformers-base ==0.4.6,
transformers-base +orphaninstances,
any.transformers-compat ==0.7.2,
transformers-compat -five +five-three -four +generic-deriving +mtl -three -two,
any.tuple ==0.3.0.2,
any.type-equality ==1,
any.typed-process ==0.2.11.1,
any.typst-symbols ==0.1.4,
any.unicode-collation ==0.1.3.5,
unicode-collation -doctests -executable,
any.unicode-data ==0.4.0.1,
unicode-data -ucd2haskell,
any.unicode-show ==0.1.1.1,
any.unicode-transforms ==0.4.0.1,
unicode-transforms -bench-show -dev -has-icu -has-llvm -use-gauge,
any.uniplate ==1.6.13,
any.unique ==0.0.1,
any.universe-base ==1.1.3.1,
any.unix ==2.7.3,
any.unix-compat ==0.7,
unix-compat -old-time,
any.unix-time ==0.4.11,
any.unliftio ==0.2.25.0,
any.unliftio-core ==0.2.1.0,
any.unordered-containers ==0.2.19.1,
unordered-containers -debug,
any.uri-bytestring ==0.3.3.1,
uri-bytestring -lib-werror,
any.uri-encode ==1.5.0.7,
uri-encode +network-uri -tools,
any.utf8-string ==1.0.2,
any.utility-ht ==0.0.17,
any.uuid ==1.3.15,
any.uuid-types ==1.0.5.1,
any.validity ==0.12.0.2,
any.vault ==0.3.1.5,
vault +useghc,
any.vector ==0.12.3.0,
vector +boundschecks -internalchecks -unsafechecks -wall,
any.vector-algorithms ==0.9.0.1,
vector-algorithms +bench +boundschecks -internalchecks -llvm +properties -unsafechecks,
any.vector-binary-instances ==0.2.5.2,
any.vector-instances ==3.4.2,
vector-instances +hashable,
any.vector-th-unbox ==0.2.2,
any.void ==0.7.3,
void -safe,
any.wai ==3.2.4,
any.wai-app-static ==3.1.8,
wai-app-static +crypton -print,
any.wai-cors ==0.2.7,
any.wai-extra ==3.1.13.0,
wai-extra -build-example,
any.wai-logger ==2.4.0,
any.wai-websockets ==3.0.1.2,
wai-websockets +example,
any.warp ==3.3.25,
warp +allow-sendfilefd -network-bytestring -warp-debug +x509,
any.websockets ==0.12.7.3,
websockets -example,
any.wikiparsec ==2.1.0,
wikiparsec +library-only,
any.witherable ==0.4.2,
any.wl-pprint-annotated ==0.1.0.1,
any.wl-pprint-text ==1.2.0.2,
any.word8 ==0.1.3,
any.wreq ==0.5.4.2,
wreq -aws -developer +doctest -httpbin,
any.wuss ==2.0.1.3,
wuss -pedantic,
any.x509 ==1.7.7,
any.x509-store ==1.6.9,
any.x509-system ==1.6.7,
any.x509-validation ==1.6.12,
any.xml ==1.3.14,
any.xml-conduit ==1.9.1.3,
any.xml-types ==0.3.8,
any.yaml ==0.11.11.2,
yaml +no-examples +no-exe,
any.zeromq4-haskell ==0.8.0,
any.zip ==2.0.0,
zip -dev -disable-bzip2 -disable-zstd,
any.zip-archive ==0.4.3,
zip-archive -executable,
any.zlib ==0.6.3.0,
zlib -bundled-c-zlib -non-blocking-ffi -pkg-config,
any.zlib-bindings ==0.1.1.5,
any.zstd ==0.1.3.0,
zstd +standalone
index-state: hackage.haskell.org 2023-12-10T10:34:46Z
gargantext.cabal
View file @
f994a3c2
...
...
@@ -1053,7 +1053,7 @@ test-suite garg-test-tasty
, servant-server
, shelly >= 1.9 && < 2
, stm ^>= 2.5.0.1
, tasty ^>= 1.
4.2.1
, tasty ^>= 1.
5
, tasty-hspec
, tasty-hunit
, tasty-quickcheck
...
...
@@ -1163,7 +1163,7 @@ test-suite garg-test-hspec
, servant-server
, shelly >= 1.9 && < 2
, stm ^>= 2.5.0.1
, tasty ^>= 1.
4.2.1
, tasty ^>= 1.
5
, tasty-hspec
, tasty-hunit
, tasty-quickcheck
...
...
src/Gargantext/API/Public.hs
View file @
f994a3c2
...
...
@@ -211,7 +211,7 @@ instance Arbitrary PublicData where
defaultPublicData
::
PublicData
defaultPublicData
=
PublicData
{
title
=
"Title"
,
abstract
=
foldl
(
<>
)
""
$
replicate
100
"abstract "
,
abstract
=
foldl
'
(
<>
)
""
$
replicate
100
"abstract "
,
img
=
"images/Gargantextuel-212x300.jpg"
,
url
=
"https://.."
,
date
=
"YY/MM/DD"
...
...
src/Gargantext/Core/Methods/Similarities/Distributional.hs
View file @
f994a3c2
...
...
@@ -17,12 +17,12 @@ Motivation and definition of the @Distributional@ distance.
module
Gargantext.Core.Methods.Similarities.Distributional
where
import
Data.Map
qualified
as
M
import
Data.Matrix
hiding
(
identity
)
import
qualified
Data.Map
as
M
import
Data.Vector
(
Vector
)
import
qualified
Data.Vector
as
V
import
Gargantext.Prelude
import
Data.Vector
qualified
as
V
import
Gargantext.Core.Viz.Graph.Utils
import
Gargantext.Prelude
distributional'
::
(
Floating
a
,
Ord
a
)
=>
Matrix
a
->
[((
Int
,
Int
),
a
)]
...
...
src/Gargantext/Core/NodeStory.hs
View file @
f994a3c2
...
...
@@ -390,7 +390,7 @@ getNodeStory c nId = do
pure ()
-}
pure
$
NodeStory
$
Map
.
singleton
nId
$
foldl
combine
initArchive
dbData
pure
$
NodeStory
$
Map
.
singleton
nId
$
foldl
'
combine
initArchive
dbData
where
-- NOTE (<>) for Archive doesn't concatenate states, so we have to use `combine`
combine
a1
a2
=
a1
&
a_state
%~
combineState
(
a2
^.
a_state
)
...
...
src/Gargantext/Core/Text/Corpus/API/Hal.hs
View file @
f994a3c2
...
...
@@ -56,8 +56,8 @@ toDoc' la (HAL.Corpus { .. }) = do
,
_hd_uniqIdBdd
=
Nothing
,
_hd_page
=
Nothing
,
_hd_title
=
Just
$
intercalate
" "
_corpus_title
,
_hd_authors
=
Just
$
foldl
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
_corpus_authors_names
,
_hd_institutes
=
Just
$
foldl
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
$
_corpus_authors_affiliations
<>
map
show
_corpus_struct_id
,
_hd_authors
=
Just
$
foldl
'
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
_corpus_authors_names
,
_hd_institutes
=
Just
$
foldl
'
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
$
_corpus_authors_affiliations
<>
map
show
_corpus_struct_id
,
_hd_source
=
Just
$
maybe
"Nothing"
identity
_corpus_source
,
_hd_abstract
=
Just
abstract
,
_hd_publication_date
=
fmap
show
utctime
...
...
src/Gargantext/Core/Text/Corpus/Parsers/CSV.hs
View file @
f994a3c2
...
...
@@ -92,7 +92,7 @@ toDocs v = V.toList
,
d_authors
=
csv_authors
})
(
V
.
enumFromN
1
(
V
.
length
v''
))
v''
where
v''
=
V
.
foldl
(
\
v'
sep
->
V
.
concatMap
(
splitDoc
(
docsSize
v'
)
sep
)
v'
)
v
seps
v''
=
V
.
foldl
'
(
\
v'
sep
->
V
.
concatMap
(
splitDoc
(
docsSize
v'
)
sep
)
v'
)
v
seps
seps
=
(
V
.
fromList
[
Paragraphs
1
,
Sentences
3
,
Chars
3
])
---------------------------------------------------------------
...
...
src/Gargantext/Core/Text/Corpus/Parsers/FrameWrite.hs
View file @
f994a3c2
...
...
@@ -105,7 +105,7 @@ data Line =
deriving
(
Show
)
parseLines
::
Text
->
Either
ParseError
Parsed
parseLines
text
=
foldl
f
emptyParsed
<$>
lst
parseLines
text
=
foldl
'
f
emptyParsed
<$>
lst
where
lst
=
parse
documentLines
""
(
unpack
text
)
f
(
Parsed
{
..
})
(
LAuthors
as
)
=
Parsed
{
authors
=
as
,
..
}
...
...
src/Gargantext/Core/Text/Corpus/Parsers/JSON/Istex.hs
View file @
f994a3c2
...
...
@@ -41,9 +41,9 @@ toDoc la (ISTEX.Document i t a ab d s) = do
,
_hd_uniqIdBdd
=
Nothing
,
_hd_page
=
Nothing
,
_hd_title
=
t
,
_hd_authors
=
Just
$
foldl
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
(
map
ISTEX
.
_author_name
a
)
,
_hd_institutes
=
Just
$
foldl
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
(
concat
$
(
map
ISTEX
.
_author_affiliations
)
a
)
,
_hd_source
=
Just
$
foldl
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
(
ISTEX
.
_source_title
s
)
,
_hd_authors
=
Just
$
foldl
'
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
(
map
ISTEX
.
_author_name
a
)
,
_hd_institutes
=
Just
$
foldl
'
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
(
concat
$
(
map
ISTEX
.
_author_affiliations
)
a
)
,
_hd_source
=
Just
$
foldl
'
(
\
x
y
->
if
x
==
""
then
y
else
x
<>
", "
<>
y
)
""
(
ISTEX
.
_source_title
s
)
,
_hd_abstract
=
ab
,
_hd_publication_date
=
fmap
(
T
.
pack
.
show
)
utctime
,
_hd_publication_year
=
pub_year
...
...
src/Gargantext/Core/Text/List/Learn.hs
View file @
f994a3c2
...
...
@@ -103,7 +103,7 @@ grid s e tr te = do
score''
::
Map
(
Maybe
Bool
)
Int
->
Double
score''
m''
=
maybe
0
(
\
t
->
(
fromIntegral
t
)
/
total
)
(
Map
.
lookup
(
Just
True
)
m''
)
where
total
=
fromIntegral
$
foldl
(
+
)
0
$
Map
.
elems
m''
total
=
fromIntegral
$
foldl
'
(
+
)
0
$
Map
.
elems
m''
getScore
m
t
=
do
let
(
res
,
toGuess
)
=
List
.
unzip
...
...
src/Gargantext/Core/Text/Metrics/Utils.hs
View file @
f994a3c2
...
...
@@ -20,7 +20,7 @@ countElem :: (Ord k) => DM.Map k Int -> k -> DM.Map k Int
countElem
m
e
=
DM
.
insertWith
(
+
)
e
1
m
freq
::
(
Ord
k
)
=>
[
k
]
->
DM
.
Map
k
Int
freq
=
foldl
countElem
DM
.
empty
freq
=
foldl
'
countElem
DM
.
empty
getMaxFromMap
::
Ord
a
=>
Map
a1
a
->
[
a1
]
getMaxFromMap
m
=
go
[]
Nothing
(
DM
.
toList
m
)
...
...
src/Gargantext/Core/Text/Terms/Eleve.hs
View file @
f994a3c2
...
...
@@ -229,7 +229,7 @@ instance IsTrie Trie where
nodeChild
k
(
Node
_
_
cs
)
=
fromMaybe
emptyTrie
(
Map
.
lookup
k
cs
)
nodeChild
_
(
Leaf
_
)
=
emptyTrie
findTrie
ks
t
=
L
.
foldl
(
flip
nodeChild
)
t
ks
findTrie
ks
t
=
L
.
foldl
'
(
flip
nodeChild
)
t
ks
printTrie
inE
t
=
do
P
.
putStrLn
.
Tree
.
drawTree
...
...
src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
View file @
f994a3c2
...
...
@@ -292,7 +292,7 @@ filterByBranchSize thr export =
processFilters
::
[
Filter
]
->
Quality
->
PhyloExport
->
PhyloExport
processFilters
filters
qua
export
=
foldl
(
\
export'
f
->
case
f
of
foldl
'
(
\
export'
f
->
case
f
of
ByBranchSize
thr
->
if
(
thr
<
(
fromIntegral
$
qua
^.
qua_minBranch
))
then
filterByBranchSize
(
fromIntegral
$
qua
^.
qua_minBranch
)
export'
else
filterByBranchSize
thr
export'
...
...
@@ -488,8 +488,8 @@ mostInclusive nth foundations export =
.
traverse
)
(
\
b
->
let
groups
=
filter
(
\
g
->
g
^.
phylo_groupBranchId
==
b
^.
branch_id
)
$
export
^.
export_groups
cooc
=
foldl
(
\
acc
g
->
unionWith
(
+
)
acc
(
g
^.
phylo_groupCooc
))
empty
groups
ngrams
=
sort
$
foldl
(
\
acc
g
->
union
acc
(
g
^.
phylo_groupNgrams
))
[]
groups
cooc
=
foldl
'
(
\
acc
g
->
unionWith
(
+
)
acc
(
g
^.
phylo_groupCooc
))
empty
groups
ngrams
=
sort
$
foldl
'
(
\
acc
g
->
union
acc
(
g
^.
phylo_groupNgrams
))
[]
groups
inc
=
map
(
\
n
->
inclusion
cooc
(
ngrams
\\
[
n
])
n
)
ngrams
lbl
=
ngramsToLabel
foundations
$
getNthMostMeta
nth
inc
ngrams
in
b
&
branch_label
.~
lbl
)
export
...
...
@@ -513,7 +513,7 @@ mostEmergentInclusive nth foundations export =
processLabels
::
[
PhyloLabel
]
->
Vector
Ngrams
->
Map
Int
Double
->
PhyloExport
->
PhyloExport
processLabels
labels
foundations
freq
export
=
foldl
(
\
export'
label
->
foldl
'
(
\
export'
label
->
case
label
of
GroupLabel
tagger
nth
->
case
tagger
of
...
...
@@ -565,7 +565,7 @@ processDynamics groups =
let
dates'
=
sort
dates
in
(
head'
"dynamics"
dates'
,
last'
"dynamics"
dates'
))
$
fromListWith
(
++
)
$
foldl
(
\
acc
g
->
acc
++
(
map
(
\
n
->
(
n
,[
fst
$
g
^.
phylo_groupPeriod
,
snd
$
g
^.
phylo_groupPeriod
]))
$
foldl
'
(
\
acc
g
->
acc
++
(
map
(
\
n
->
(
n
,[
fst
$
g
^.
phylo_groupPeriod
,
snd
$
g
^.
phylo_groupPeriod
]))
$
(
g
^.
phylo_groupNgrams
)))
[]
groups
...
...
src/Gargantext/Core/Viz/Phylo/PhyloMaker.hs
View file @
f994a3c2
...
...
@@ -121,7 +121,7 @@ evolvSeaLadder nbFdt lambda freq similarities graph = map snd
--------
-- 1.2)
qua'
::
[(
Double
,
Double
)]
qua'
=
foldl
(
\
acc
(
s
,
q
)
->
qua'
=
foldl
'
(
\
acc
(
s
,
q
)
->
if
length
acc
==
0
then
[(
s
,
q
)]
else
if
(
snd
(
List
.
last
acc
))
==
q
...
...
@@ -203,13 +203,13 @@ appendGroups f lvl m phylo =
pId'
=
phyloLvl
^.
phylo_scalePeriodStr
phyloCUnit
=
m
!
pId
in
phyloLvl
&
phylo_scaleGroups
.~
(
fromList
$
foldl
(
\
groups
obj
->
&
phylo_scaleGroups
.~
(
fromList
$
foldl
'
(
\
groups
obj
->
groups
++
[
(((
pId
,
lvl
),
length
groups
)
,
f
obj
pId
pId'
lvl
(
length
groups
)
-- select the cooc of the periods
(
elems
$
restrictKeys
(
getCoocByDate
phylo
)
$
periodsToYears
[
pId
])
-- select and merge the roots count of the periods
(
foldl
(
\
acc
count
->
unionWith
(
+
)
acc
count
)
empty
(
foldl
'
(
\
acc
count
->
unionWith
(
+
)
acc
count
)
empty
$
elems
$
restrictKeys
(
getRootsCountByDate
phylo
)
$
periodsToYears
[
pId
]))
]
)
[]
phyloCUnit
)
else
...
...
@@ -312,7 +312,7 @@ filterCliqueBySize thr l = filter (\clq -> (length $ clq ^. clustering_roots) >=
filterCliqueByNested
::
Map
(
Date
,
Date
)
[
Clustering
]
->
Map
(
Date
,
Date
)
[
Clustering
]
filterCliqueByNested
m
=
let
clq
=
map
(
\
l
->
foldl
(
\
mem
f
->
if
(
any
(
\
f'
->
isNested
(
f'
^.
clustering_roots
)
(
f
^.
clustering_roots
))
mem
)
foldl
'
(
\
mem
f
->
if
(
any
(
\
f'
->
isNested
(
f'
^.
clustering_roots
)
(
f
^.
clustering_roots
))
mem
)
then
mem
else
let
fMax
=
filter
(
\
f'
->
not
$
isNested
(
f
^.
clustering_roots
)
(
f'
^.
clustering_roots
))
mem
...
...
@@ -355,7 +355,7 @@ toSeriesOfClustering phylo phyloDocs = case (clique $ getConfig phylo) of
MaxClique
_
thr
filterType
->
let
mcl
=
map
(
\
(
prd
,
docs
)
->
let
cooc
=
map
round
$
foldl
sumCooc
empty
$
foldl
'
sumCooc
empty
$
map
listToMatrix
$
map
(
\
d
->
ngramsToIdx
(
text
d
)
(
getRoots
phylo
))
docs
in
(
prd
,
map
(
\
cl
->
Clustering
cl
0
prd
Nothing
[]
)
$
getMaxCliques
filterType
Conditional
thr
cooc
))
...
...
src/Gargantext/Core/Viz/Phylo/PhyloTools.hs
View file @
f994a3c2
...
...
@@ -234,7 +234,7 @@ keepFilled f thr l = if (null $ f thr l) && (not $ null l)
traceClique
::
Map
(
Date
,
Date
)
[
Clustering
]
->
String
traceClique
mFis
=
foldl
(
\
msg
cpt
->
msg
<>
show
(
countSup
cpt
cliques
)
<>
" (>"
<>
show
(
cpt
)
<>
") "
)
""
[
1
..
6
]
traceClique
mFis
=
foldl
'
(
\
msg
cpt
->
msg
<>
show
(
countSup
cpt
cliques
)
<>
" (>"
<>
show
(
cpt
)
<>
") "
)
""
[
1
..
6
]
where
--------------------------------------
cliques
::
[
Double
]
...
...
@@ -243,7 +243,7 @@ traceClique mFis = foldl (\msg cpt -> msg <> show (countSup cpt cliques) <> " (>
traceSupport
::
Map
(
Date
,
Date
)
[
Clustering
]
->
String
traceSupport
mFis
=
foldl
(
\
msg
cpt
->
msg
<>
show
(
countSup
cpt
supports
)
<>
" (>"
<>
show
(
cpt
)
<>
") "
)
""
[
1
..
6
]
traceSupport
mFis
=
foldl
'
(
\
msg
cpt
->
msg
<>
show
(
countSup
cpt
supports
)
<>
" (>"
<>
show
(
cpt
)
<>
") "
)
""
[
1
..
6
]
where
--------------------------------------
supports
::
[
Double
]
...
...
@@ -311,7 +311,7 @@ coocToAdjacency cooc = Map.map (\_ -> 1) cooc
-- | To build the local cooc matrix of each phylogroup
ngramsToCooc
::
[
Int
]
->
[
Cooc
]
->
Cooc
ngramsToCooc
ngrams
coocs
=
let
cooc
=
foldl
(
\
acc
cooc'
->
sumCooc
acc
cooc'
)
empty
coocs
let
cooc
=
foldl
'
(
\
acc
cooc'
->
sumCooc
acc
cooc'
)
empty
coocs
pairs
=
listToKeys
ngrams
in
filterWithKey
(
\
k
_
->
elem
k
pairs
)
cooc
...
...
@@ -327,7 +327,7 @@ ngramsToCooc ngrams coocs =
-- Scientometric 22: 155–205.
ngramsToDensity
::
[
Int
]
->
[
Cooc
]
->
(
Map
Int
Double
)
->
Double
ngramsToDensity
ngrams
coocs
rootsCount
=
let
cooc
=
foldl
(
\
acc
cooc'
->
sumCooc
acc
cooc'
)
empty
coocs
let
cooc
=
foldl
'
(
\
acc
cooc'
->
sumCooc
acc
cooc'
)
empty
coocs
pairs
=
listToCombi'
ngrams
density
=
map
(
\
(
i
,
j
)
->
let
nij
=
findWithDefault
0
(
i
,
j
)
cooc
...
...
@@ -382,7 +382,7 @@ regimeToDefaultLevel cooc roots
coocToConfidence
::
Phylo
->
Cooc
coocToConfidence
phylo
=
let
count
=
getRootsCount
phylo
cooc
=
foldl
(
\
acc
cooc'
->
sumCooc
acc
cooc'
)
empty
cooc
=
foldl
'
(
\
acc
cooc'
->
sumCooc
acc
cooc'
)
empty
$
elems
$
getCoocByDate
phylo
in
Map
.
mapWithKey
(
\
(
a
,
b
)
w
->
confidence
a
b
w
count
)
cooc
where
...
...
@@ -749,7 +749,7 @@ branchIdsToSimilarity :: PhyloBranchId -> PhyloBranchId -> Double -> Double -> D
branchIdsToSimilarity
id
id'
thrInit
thrStep
=
thrInit
+
thrStep
*
(
fromIntegral
$
length
$
intersectInit
[]
(
snd
id
)
(
snd
id'
))
ngramsInBranches
::
[[
PhyloGroup
]]
->
[
Int
]
ngramsInBranches
branches
=
nub
$
foldl
(
\
acc
g
->
acc
++
(
g
^.
phylo_groupNgrams
))
[]
$
concat
branches
ngramsInBranches
branches
=
nub
$
foldl
'
(
\
acc
g
->
acc
++
(
g
^.
phylo_groupNgrams
))
[]
$
concat
branches
traceMatchSuccess
::
Double
->
Double
->
Double
->
[[[
PhyloGroup
]]]
->
[[[
PhyloGroup
]]]
...
...
src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
View file @
f994a3c2
...
...
@@ -31,7 +31,7 @@ import Gargantext.Prelude hiding (empty)
mergeGroups
::
[
Cooc
]
->
PhyloGroupId
->
Map
PhyloGroupId
PhyloGroupId
->
[
PhyloGroup
]
->
PhyloGroup
mergeGroups
coocs
id
mapIds
childs
=
let
ngrams
=
(
sort
.
nub
.
concat
)
$
map
_phylo_groupNgrams
childs
counts
=
foldl
(
\
acc
count
->
unionWith
(
+
)
acc
count
)
empty
$
map
_phylo_groupRootsCount
childs
counts
=
foldl
'
(
\
acc
count
->
unionWith
(
+
)
acc
count
)
empty
$
map
_phylo_groupRootsCount
childs
in
PhyloGroup
(
fst
$
fst
id
)
(
_phylo_groupPeriod'
$
head'
"mergeGroups"
childs
)
(
snd
$
fst
id
)
(
snd
id
)
""
(
sum
$
map
_phylo_groupSupport
childs
)
...
...
src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
View file @
f994a3c2
...
...
@@ -50,14 +50,14 @@ jaccard inter' union' = ((fromIntegral . length) $ inter') / ((fromIntegral . le
-- process the inverse sumLog
-}
sumInvLog'
::
Double
->
Double
->
[
Double
]
->
Double
sumInvLog'
s
nb
diago
=
foldl
(
\
mem
occ
->
mem
+
(
1
/
(
log
(
occ
+
1
/
tan
(
s
*
pi
/
2
))
/
log
(
nb
+
1
/
tan
(
s
*
pi
/
2
)))))
0
diago
sumInvLog'
s
nb
diago
=
foldl
'
(
\
mem
occ
->
mem
+
(
1
/
(
log
(
occ
+
1
/
tan
(
s
*
pi
/
2
))
/
log
(
nb
+
1
/
tan
(
s
*
pi
/
2
)))))
0
diago
{-
-- process the sumLog
-}
sumLog'
::
Double
->
Double
->
[
Double
]
->
Double
sumLog'
s
nb
diago
=
foldl
(
\
mem
occ
->
mem
+
(
log
(
occ
+
1
/
tan
(
s
*
pi
/
2
))
/
log
(
nb
+
1
/
tan
(
s
*
pi
/
2
))))
0
diago
sumLog'
s
nb
diago
=
foldl
'
(
\
mem
occ
->
mem
+
(
log
(
occ
+
1
/
tan
(
s
*
pi
/
2
))
/
log
(
nb
+
1
/
tan
(
s
*
pi
/
2
))))
0
diago
{-
...
...
@@ -176,7 +176,7 @@ filterPointers' proxi thr pts = filter (\((_,w),_) -> filterSimilarity proxi thr
reduceDiagos
::
Map
Date
Cooc
->
Map
Int
Double
reduceDiagos
diagos
=
mapKeys
(
\
(
k
,
_
)
->
k
)
$
foldl
(
\
acc
diago
->
unionWith
(
+
)
acc
diago
)
empty
(
elems
diagos
)
$
foldl
'
(
\
acc
diago
->
unionWith
(
+
)
acc
diago
)
empty
(
elems
diagos
)
filterPointersByPeriod
::
Filiation
->
[(
Pointer
,[
Int
])]
->
[
Pointer
]
filterPointersByPeriod
fil
pts
=
...
...
src/Gargantext/Database/Query/Table/Ngrams.hs
View file @
f994a3c2
...
...
@@ -58,7 +58,7 @@ selectNgramsByDoc lIds dId nt = runOpaQuery (query lIds dId nt)
query
lIds'
dId'
nt'
=
proc
()
->
do
(
ng
,
nng
,
cnng
)
<-
join'
-<
()
restrict
-<
foldl
(
\
b
lId
->
((
pgNodeId
lId
)
.==
nng
^.
nng_node_id
)
.||
b
)
(
sqlBool
True
)
lIds'
restrict
-<
foldl
'
(
\
b
lId
->
((
pgNodeId
lId
)
.==
nng
^.
nng_node_id
)
.||
b
)
(
sqlBool
True
)
lIds'
restrict
-<
(
pgNodeId
dId'
)
.==
cnng
^.
cnng2_context_id
restrict
-<
(
pgNgramsType
nt'
)
.==
nng
^.
nng_ngrams_type
returnA
-<
ng
^.
ngrams_terms
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment