mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-19 12:56:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixing cleanString

Browse Source
This commit is contained in:
Stian Håklev 2015-02-17 15:38:24 -05:00
parent ae2a6f14cd
commit 98bff009ac
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/IHaskell/Eval/Evaluate.hs
View File

@ -233,11 +233,13 @@ cleanString :: String -> String
cleanString x = strip $ if allBrackets then clean else x
where
l = lines x
allBrackets = all (fAny [isInfixOf ">", null]) l
allBrackets = all (fAny [isPrefixOf ">", null]) l
fAny fs x = any ($x) fs
clean = unlines $ map removeBracket l
removeBracket (x:xs) = xs
removeBracket [] = []
-- should never happen:
removeBracket other = error $ "Expected bracket as first char, but got string: " ++ other
-- | Evaluate some IPython input code.
evaluate :: KernelState -- ^ The kernel state.