ihaskell 0.3.0.1 → 0.3.0.2

raw patch · 4 files changed

+6/−14 lines, 4 files

Files

ihaskell.cabal +1/−1
src/IHaskell/Eval/Evaluate.hs +3/−11
src/IHaskell/Eval/Hoogle.hs +1/−1
src/IHaskell/IPython.hs +1/−1

ihaskell.cabal view

@@ -7,7 +7,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.3.0.1+version:             0.3.0.2  -- A short (one-line) description of the package. synopsis:            A Haskell backend kernel for the IPython project.

src/IHaskell/Eval/Evaluate.hs view

@@ -1044,11 +1044,12 @@ formatErrorWithClass cls =     printf "<span class='%s'>%s</span>" cls .     replace "\n" "<br/>" .-    fixStdinError .     replace useDashV "" .+    fixDollarSigns .     rstrip .     typeCleaner   where+    fixDollarSigns str = traceShowId  (replace "$" "<span>$</span>" str)     useDashV = "\nUse -v to see a list of the files searched for."     isShowError err =       startswith "No instance for (Show" err &&@@ -1066,16 +1067,7 @@ formatType typeStr =  Display [plain typeStr, html $ formatGetType typeStr]  displayError :: ErrMsg -> Display-displayError msg = Display [plain . fixStdinError . 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+displayError msg = Display [plain . typeCleaner $ msg, html $ formatError msg]  mono :: String -> String mono = printf "<span class='mono'>%s</span>"

src/IHaskell/Eval/Hoogle.hs view

@@ -150,7 +150,7 @@         span "hoogle-module" (link loc $ extractModule string) ++         packageSub package -  | otherwise+  | otherwise      = let [name, args] = split "::" string           package = extractPackageName loc           modname = extractModuleName loc in

src/IHaskell/IPython.hs view

@@ -40,7 +40,7 @@  -- | Which commit of IPython we are on. ipythonCommit :: Text-ipythonCommit = "9c922f54af799704f4000aeee94ec7c74cada194"+ipythonCommit = "12247a8f4feffe16fb0bbdc0a18e7a1f46cd2ba1"  -- | The IPython profile name. ipythonProfile :: String