Skip to content

G
gargantext-ihaskell
Commit 16df4e9c authored by Andrei Barbu's avatar Andrei Barbu
Browse files
Options

add space to remove TH confusion

parent 4d8ad76e
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/IHaskell/Eval/Evaluate.hs
View file @ 16df4e9c
...@@ -303,7 +303,7 @@ cleanString x = if allBrackets ...@@ -303,7 +303,7 @@ cleanString x = if allBrackets
str = strip x str = strip x
l = lines str l = lines str
allBrackets = all (fAny [isPrefixOf ">", null]) l allBrackets = all (fAny [isPrefixOf ">", null]) l
fAny fs x = any ($x) fs fAny fs x = any ($ x) fs
clean = unlines $ map removeBracket l clean = unlines $ map removeBracket l
removeBracket ('>':xs) = xs removeBracket ('>':xs) = xs
removeBracket [] = [] removeBracket [] = []
......
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