Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
I
isidore
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
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
gargantext
crawlers
isidore
Commits
3db385e7
Commit
3db385e7
authored
Aug 28, 2019
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[STACK LTS] upgrade.
parent
652a05b2
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
Isidore.hs
src/Isidore.hs
+3
-3
stack.yaml
stack.yaml
+2
-2
No files found.
src/Isidore.hs
View file @
3db385e7
...
@@ -34,16 +34,16 @@ type TextQuery = Text
...
@@ -34,16 +34,16 @@ type TextQuery = Text
type
AuthorQuery
=
Text
type
AuthorQuery
=
Text
getMetadataWith
::
Text
->
Maybe
Int
->
IO
(
Either
Serva
ntError
Content
)
getMetadataWith
::
Text
->
Maybe
Int
->
IO
(
Either
Clie
ntError
Content
)
getMetadataWith
q
l
=
get
l
(
Just
q
)
Nothing
getMetadataWith
q
l
=
get
l
(
Just
q
)
Nothing
getMetadataWithAuthor
::
Text
->
Maybe
Int
->
IO
(
Either
Serva
ntError
Content
)
getMetadataWithAuthor
::
Text
->
Maybe
Int
->
IO
(
Either
Clie
ntError
Content
)
getMetadataWithAuthor
q
l
=
get
l
Nothing
(
Just
q
)
getMetadataWithAuthor
q
l
=
get
l
Nothing
(
Just
q
)
get
::
Maybe
Limit
get
::
Maybe
Limit
->
Maybe
TextQuery
->
Maybe
TextQuery
->
Maybe
AuthorQuery
->
Maybe
AuthorQuery
->
IO
(
Either
Serva
ntError
Content
)
->
IO
(
Either
Clie
ntError
Content
)
get
n
q
a
=
do
get
n
q
a
=
do
manager'
<-
newManager
tlsManagerSettings
manager'
<-
newManager
tlsManagerSettings
runClientM
(
clientIsidore
n
q
a
)
runClientM
(
clientIsidore
n
q
a
)
...
...
stack.yaml
View file @
3db385e7
...
@@ -18,7 +18,7 @@
...
@@ -18,7 +18,7 @@
#
#
# resolver: ./custom-snapshot.yaml
# resolver: ./custom-snapshot.yaml
# resolver: https://example.com/snapshots/2018-01-01.yaml
# resolver: https://example.com/snapshots/2018-01-01.yaml
resolver
:
lts-1
3.25
resolver
:
lts-1
4.1
# User packages to be built.
# User packages to be built.
# Various formats can be used as shown in the example below.
# Various formats can be used as shown in the example below.
...
...
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