Commit e09ced99 authored by Andrew Gibiansky's avatar Andrew Gibiansky

minor changes, new ipython commit hash

parent 37c2b993
...@@ -368,7 +368,7 @@ ...@@ -368,7 +368,7 @@
"language": "python", "language": "python",
"metadata": {}, "metadata": {},
"outputs": [], "outputs": [],
"prompt_number": 12 "prompt_number": 1
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
...@@ -398,7 +398,7 @@ ...@@ -398,7 +398,7 @@
"language": "python", "language": "python",
"metadata": {}, "metadata": {},
"outputs": [], "outputs": [],
"prompt_number": 13 "prompt_number": 2
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
...@@ -440,7 +440,7 @@ ...@@ -440,7 +440,7 @@
"output_type": "display_data" "output_type": "display_data"
} }
], ],
"prompt_number": 14 "prompt_number": 6
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
...@@ -507,7 +507,7 @@ ...@@ -507,7 +507,7 @@
] ]
} }
], ],
"prompt_number": 15 "prompt_number": 7
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
...@@ -573,7 +573,7 @@ ...@@ -573,7 +573,7 @@
] ]
} }
], ],
"prompt_number": 16 "prompt_number": 8
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
...@@ -731,7 +731,7 @@ ...@@ -731,7 +731,7 @@
] ]
} }
], ],
"prompt_number": 2 "prompt_number": 18
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
...@@ -1184,7 +1184,7 @@ ...@@ -1184,7 +1184,7 @@
"output_type": "display_data" "output_type": "display_data"
} }
], ],
"prompt_number": 3 "prompt_number": 25
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
...@@ -1216,7 +1216,7 @@ ...@@ -1216,7 +1216,7 @@
"output_type": "display_data" "output_type": "display_data"
} }
], ],
"prompt_number": 4 "prompt_number": 26
}, },
{ {
"cell_type": "markdown", "cell_type": "markdown",
......
...@@ -7,7 +7,7 @@ name: ihaskell ...@@ -7,7 +7,7 @@ name: ihaskell
-- PVP summary: +-+------- breaking API changes -- PVP summary: +-+------- breaking API changes
-- | | +----- non-breaking API additions -- | | +----- non-breaking API additions
-- | | | +--- code changes with no API change -- | | | +--- code changes with no API change
version: 0.3.0.0 version: 0.3.0.1
-- A short (one-line) description of the package. -- A short (one-line) description of the package.
synopsis: A Haskell backend kernel for the IPython project. synopsis: A Haskell backend kernel for the IPython project.
......
...@@ -1044,11 +1044,12 @@ formatErrorWithClass :: String -> ErrMsg -> String ...@@ -1044,11 +1044,12 @@ formatErrorWithClass :: String -> ErrMsg -> String
formatErrorWithClass cls = formatErrorWithClass cls =
printf "<span class='%s'>%s</span>" cls . printf "<span class='%s'>%s</span>" cls .
replace "\n" "<br/>" . replace "\n" "<br/>" .
fixStdinError .
replace useDashV "" . replace useDashV "" .
fixDollarSigns .
rstrip . rstrip .
typeCleaner typeCleaner
where where
fixDollarSigns str = traceShowId (replace "$" "<span>$</span>" str)
useDashV = "\nUse -v to see a list of the files searched for." useDashV = "\nUse -v to see a list of the files searched for."
isShowError err = isShowError err =
startswith "No instance for (Show" err && startswith "No instance for (Show" err &&
...@@ -1066,16 +1067,7 @@ formatType :: String -> Display ...@@ -1066,16 +1067,7 @@ formatType :: String -> Display
formatType typeStr = Display [plain typeStr, html $ formatGetType typeStr] formatType typeStr = Display [plain typeStr, html $ formatGetType typeStr]
displayError :: ErrMsg -> Display displayError :: ErrMsg -> Display
displayError msg = Display [plain . fixStdinError . typeCleaner $ msg, html $ formatError msg] displayError msg = Display [plain . typeCleaner $ msg, html $ formatError msg]
fixStdinError :: ErrMsg -> ErrMsg
fixStdinError err =
if isStdinErr err
then "<stdin> is not available in IHaskell. Use special `inputLine` instead of `getLine`."
else err
where
isStdinErr err = startswith "<stdin>" err
&& "illegal operation (handle is closed)" `isInfixOf` err
mono :: String -> String mono :: String -> String
mono = printf "<span class='mono'>%s</span>" mono = printf "<span class='mono'>%s</span>"
...@@ -150,7 +150,7 @@ renderSelf string loc ...@@ -150,7 +150,7 @@ renderSelf string loc
span "hoogle-module" (link loc $ extractModule string) ++ span "hoogle-module" (link loc $ extractModule string) ++
packageSub package packageSub package
| otherwise | otherwise
= let [name, args] = split "::" string = let [name, args] = split "::" string
package = extractPackageName loc package = extractPackageName loc
modname = extractModuleName loc in modname = extractModuleName loc in
......
...@@ -40,7 +40,7 @@ data WhichIPython ...@@ -40,7 +40,7 @@ data WhichIPython
-- | Which commit of IPython we are on. -- | Which commit of IPython we are on.
ipythonCommit :: Text ipythonCommit :: Text
ipythonCommit = "9c922f54af799704f4000aeee94ec7c74cada194" ipythonCommit = "12247a8f4feffe16fb0bbdc0a18e7a1f46cd2ba1"
-- | The IPython profile name. -- | The IPython profile name.
ipythonProfile :: String ipythonProfile :: String
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment