Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gargantext-ihaskell
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
gargantext
gargantext-ihaskell
Commits
35e469d1
Commit
35e469d1
authored
Aug 17, 2015
by
Andrew Gibiansky
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Formatting
parent
96ce9501
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
4 deletions
+12
-4
IPython.hs
src/IHaskell/IPython.hs
+12
-4
No files found.
src/IHaskell/IPython.hs
View file @
35e469d1
...
@@ -134,15 +134,23 @@ verifyIPythonVersion = do
...
@@ -134,15 +134,23 @@ verifyIPythonVersion = do
(
Nothing
,
Nothing
)
->
badIPython
(
Nothing
,
Nothing
)
->
badIPython
"No Jupyter detected -- install Jupyter 3.0+ before using IHaskell."
"No Jupyter detected -- install Jupyter 3.0+ before using IHaskell."
(
Just
path
,
_
)
->
do
(
Just
path
,
_
)
->
do
SH
.
silently
(
SH
.
run
path
[
"--version"
])
stdout
<-
SH
.
silently
(
SH
.
run
path
[
"--version"
])
output
<-
T
.
unpack
<$>
SH
.
lastStderr
stderr
<-
SH
.
lastStderr
case
parseVersion
output
of
case
parseVersion
$
T
.
unpack
stderr
of
Just
(
4
:
_
)
->
return
()
Just
(
4
:
_
)
->
return
()
Just
(
3
:
_
)
->
return
()
Just
(
3
:
_
)
->
return
()
Just
(
2
:
_
)
->
oldIPython
Just
(
2
:
_
)
->
oldIPython
Just
(
1
:
_
)
->
oldIPython
Just
(
1
:
_
)
->
oldIPython
Just
(
0
:
_
)
->
oldIPython
Just
(
0
:
_
)
->
oldIPython
_
->
badIPython
"Detected Jupyter, but could not parse version number."
_
->
badIPython
$
T
.
concat
[
"Detected Jupyter, but could not parse version number."
,
"
\n
"
,
"(stdout = "
,
stdout
,
", stderr = "
,
stderr
,
")"
]
(
_
,
Just
path
)
->
do
(
_
,
Just
path
)
->
do
output
<-
T
.
unpack
<$>
SH
.
silently
(
SH
.
run
path
[
"--version"
])
output
<-
T
.
unpack
<$>
SH
.
silently
(
SH
.
run
path
[
"--version"
])
case
parseVersion
output
of
case
parseVersion
output
of
...
...
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