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

Stripping before processing, not after

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

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

@ -230,9 +230,10 @@ data EvalOut = EvalOut {
}
cleanString :: String -> String
cleanString x = strip $ if allBrackets then clean else x
cleanString x = if allBrackets then clean else str
where
l = lines x
str = strip x
l = lines str
allBrackets = all (fAny [isPrefixOf ">", null]) l
fAny fs x = any ($x) fs
clean = unlines $ map removeBracket l