@@ -32,15 +32,3 @@ parensIf bool doc =
32variable :: String -> Doc
32variable :: String -> Doc
33variable x =
33variable x =
34 if Help.isOp x then parens (text x) else text x
34 if Help.isOp x then parens (text x) else text x
37−eightyCharLines :: Int -> String -> String
38−eightyCharLines indent message = answer
40− (answer,_,_) = foldl step (spaces, indent-1, "") chunks
42− chunks = map (\w -> (w, length w)) (words message)
43− spaces = replicate indent ' '
44− step (sentence, slen, space) (word, wlen)
45− | slen + wlen > 79 = (sentence ++ "\n" ++ spaces ++ word, indent + wlen, " ")
46− | otherwise = (sentence ++ space ++ word, slen + wlen + length space, " ")