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
150
Issues
150
List
Board
Labels
Milestones
Merge Requests
5
Merge Requests
5
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
gargantext
haskell-gargantext
Commits
10ebc437
Commit
10ebc437
authored
Dec 12, 2023
by
Alfredo Di Napoli
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add small phylo benchmark
parent
8e93c048
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
8 additions
and
4 deletions
+8
-4
issue-290-small.json
bench-data/phylo/issue-290-small.json
+1
-0
Main.hs
bench/Main.hs
+3
-3
gargantext.cabal
gargantext.cabal
+4
-1
No files found.
bench-data/phylo/issue-290-small.json
0 → 100644
View file @
10ebc437
This diff is collapsed.
Click to expand it.
bench/Main.hs
View file @
10ebc437
...
...
@@ -4,7 +4,6 @@ module Main where
import
Control.DeepSeq
import
Gargantext.Core.Types.Individu
import
Gargantext.Core.Types.Phylo
import
Gargantext.Core.Viz.Phylo
import
Gargantext.Core.Viz.Phylo.API.Tools
(
readPhylo
)
import
Gargantext.Core.Viz.Phylo.PhyloMaker
(
toPhylo
)
...
...
@@ -40,7 +39,8 @@ phyloConfig = PhyloConfig {
main
::
IO
()
main
=
do
issue290Phylo
<-
force
.
setConfig
phyloConfig
<$>
(
readPhylo
=<<
getDataFileName
"bench-data/phylo/issue-290.json"
)
_issue290Phylo
<-
force
.
setConfig
phyloConfig
<$>
(
readPhylo
=<<
getDataFileName
"bench-data/phylo/issue-290.json"
)
issue290PhyloSmall
<-
force
.
setConfig
phyloConfig
<$>
(
readPhylo
=<<
getDataFileName
"bench-data/phylo/issue-290-small.json"
)
defaultMain
[
bgroup
"Benchmarks"
[
bgroup
"User creation"
[
...
...
@@ -49,7 +49,7 @@ main = do
whnfIO
(
toUserHash
$
NewUser
"alfredo"
"alfredo@well-typed.com"
(
GargPassword
"rabbit"
))
]
,
bgroup
"Phylo"
[
bench
"toPhylo
"
$
nf
toPhylo
issue290Phylo
bench
"toPhylo
(small)"
$
nf
toPhylo
issue290PhyloSmall
]
]
]
gargantext.cabal
View file @
10ebc437
...
...
@@ -18,6 +18,7 @@ license-file: LICENSE
build-type: Simple
data-files:
bench-data/phylo/issue-290.json
bench-data/phylo/issue-290-small.json
devops/postgres/extensions.sql
devops/postgres/schema.sql
ekg-assets/index.html
...
...
@@ -1156,12 +1157,14 @@ benchmark garg-bench
main-is: Main.hs
hs-source-dirs: bench
type: exitcode-stdio-1.0
other-modules:
Paths_gargantext
build-depends: base
, bytestring
, deepseq
, gargantext
, gargantext-prelude
, tasty-bench
ghc-options: "-with-rtsopts=-A32m"
ghc-options: "-with-rtsopts=-
T -
A32m"
if impl(ghc >= 8.6)
ghc-options: "-with-rtsopts=--nonmoving-gc"
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