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
165
Issues
165
List
Board
Labels
Milestones
Merge Requests
10
Merge Requests
10
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
32064288
Verified
Commit
32064288
authored
May 08, 2025
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[cli] printRoutesSorted now merged to upstream servant-routes
parent
9ad7fcb2
Pipeline
#7570
failed with stages
in 15 minutes and 18 seconds
Changes
2
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
3 deletions
+2
-3
Routes.hs
bin/gargantext-cli/CLI/Server/Routes.hs
+1
-2
cabal.project
cabal.project
+1
-1
No files found.
bin/gargantext-cli/CLI/Server/Routes.hs
View file @
32064288
...
@@ -13,7 +13,6 @@ import CLI.Types
...
@@ -13,7 +13,6 @@ import CLI.Types
import
Data.Aeson.Encode.Pretty
import
Data.Aeson.Encode.Pretty
import
Data.ByteString
qualified
as
B
import
Data.ByteString
qualified
as
B
import
Data.ByteString.Lazy
qualified
as
BL
import
Data.ByteString.Lazy
qualified
as
BL
import
Data.Text.IO
qualified
as
T
import
Gargantext.API.Routes.Named
import
Gargantext.API.Routes.Named
import
Gargantext.Prelude
import
Gargantext.Prelude
import
Options.Applicative
import
Options.Applicative
...
@@ -53,6 +52,6 @@ instance HasRoutes Raw where
...
@@ -53,6 +52,6 @@ instance HasRoutes Raw where
routesCLI
::
CLIRoutes
->
IO
()
routesCLI
::
CLIRoutes
->
IO
()
routesCLI
=
\
case
routesCLI
=
\
case
CLIR_list
CLIR_list
->
traverse_
(
T
.
putStrLn
.
renderRoute
)
.
sort
$
getRoutes
@
(
NamedRoutes
API
)
->
printRoutesSorted
@
(
NamedRoutes
API
)
(
CLIR_export
filePath
)
(
CLIR_export
filePath
)
->
B
.
writeFile
filePath
.
BL
.
toStrict
$
encodePretty
(
getRoutes
@
(
NamedRoutes
API
))
->
B
.
writeFile
filePath
.
BL
.
toStrict
$
encodePretty
(
getRoutes
@
(
NamedRoutes
API
))
cabal.project
View file @
32064288
...
@@ -146,7 +146,7 @@ source-repository-package
...
@@ -146,7 +146,7 @@ source-repository-package
source
-
repository
-
package
source
-
repository
-
package
type
:
git
type
:
git
location
:
https
://
github
.
com
/
fpringle
/
servant
-
routes
.
git
location
:
https
://
github
.
com
/
fpringle
/
servant
-
routes
.
git
tag
:
7694f62
af6bc1596d754b42af16da131ac403b3a
tag
:
c3c558d9278ef239a474f1e1b69afc461be60d01
source
-
repository
-
package
source
-
repository
-
package
type
:
git
type
:
git
...
...
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