Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
H
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
Przemyslaw Kaminski
haskell-gargantext
Commits
e5bb3ecc
Commit
e5bb3ecc
authored
Dec 22, 2021
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[document export] add garg version
parent
1f68e162
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
1 deletion
+4
-1
Export.hs
src/Gargantext/API/Node/Document/Export.hs
+4
-1
No files found.
src/Gargantext/API/Node/Document/Export.hs
View file @
e5bb3ecc
...
...
@@ -11,12 +11,15 @@ Portability : POSIX
module
Gargantext.API.Node.Document.Export
where
import
qualified
Data.Text
as
T
import
Data.Version
(
showVersion
)
import
Gargantext.API.Node.Document.Export.Types
import
Gargantext.API.Prelude
(
GargNoServer
)
import
Gargantext.Core.Types
-- import Gargantext.Database.Admin.Types.Hyperdata (HyperdataDocument(..))
import
Gargantext.Database.Query.Table.Node
(
getDocumentsWithParentId
)
import
Gargantext.Prelude
import
qualified
Paths_gargantext
as
PG
-- cabal magic build module
-- import Servant (Proxy(..))
--------------------------------------------------
...
...
@@ -28,7 +31,7 @@ getDocuments pId = do
docs
<-
getDocumentsWithParentId
pId
-- NodeDocument (Proxy :: Proxy HyperdataDocument)
printDebug
"[getDocuments] got docs"
docs
pure
$
DocumentExport
{
_de_documents
=
mapDoc
<$>
docs
,
_de_garg_version
=
""
}
,
_de_garg_version
=
T
.
pack
$
showVersion
PG
.
version
}
where
mapDoc
d
=
Document
{
_d_document
=
d
,
_d_ngrams
=
Ngrams
{
_ng_ngrams
=
[]
...
...
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