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
147
Issues
147
List
Board
Labels
Milestones
Merge Requests
6
Merge Requests
6
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
032391ad
Commit
032391ad
authored
Dec 02, 2019
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] warnings
parent
e08e94f9
Pipeline
#626
failed with stage
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
2 additions
and
4 deletions
+2
-4
Main.hs
bin/gargantext-init/Main.hs
+1
-1
Facet.hs
src/Gargantext/Database/Facet.hs
+0
-2
NodeNode.hs
src/Gargantext/Database/Schema/NodeNode.hs
+1
-1
No files found.
bin/gargantext-init/Main.hs
View file @
032391ad
...
...
@@ -42,7 +42,7 @@ main = do
let
createUsers
::
Cmd
GargError
Int64
createUsers
=
insertUsersDemo
let
mkRoots
::
Cmd
GargError
(
UserId
,
RootId
)
mkRoots
=
getOrMkRoot
"user1"
...
...
src/Gargantext/Database/Facet.hs
View file @
032391ad
...
...
@@ -56,11 +56,9 @@ import GHC.Generics (Generic)
import
Gargantext.Core.Types
import
Gargantext.Core.Utils.Prefix
(
unPrefix
,
unPrefixSwagger
)
import
Gargantext.Database.Config
(
nodeTypeId
)
import
Gargantext.Database.Schema.Ngrams
import
Gargantext.Database.Schema.Node
import
Gargantext.Database.Schema.NodeNode
import
Gargantext.Database.Utils
import
Gargantext.Database.Queries.Join
import
Gargantext.Database.Queries.Filter
import
Opaleye
import
Prelude
hiding
(
null
,
id
,
map
,
sum
,
not
,
read
)
...
...
src/Gargantext/Database/Schema/NodeNode.hs
View file @
032391ad
...
...
@@ -29,7 +29,7 @@ import Control.Lens (view, (^.))
import
qualified
Database.PostgreSQL.Simple
as
PGS
(
Query
,
Only
(
..
))
import
Database.PostgreSQL.Simple.Types
(
Values
(
..
),
QualifiedIdentifier
(
..
))
import
Database.PostgreSQL.Simple.SqlQQ
(
sql
)
import
Control.Lens.TH
(
makeLenses
,
makeLensesWith
,
abbreviatedFields
)
import
Control.Lens.TH
(
makeLenses
)
import
Data.Maybe
(
Maybe
,
catMaybes
)
import
Data.Text
(
Text
,
splitOn
)
import
Data.Profunctor.Product.TH
(
makeAdaptorAndInstance
)
...
...
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