|
definition:
|
checkTSpaces :: SrcLine -> CSM ()
checkTSpaces (n,l) = do
when ((last l) == ' ')
(do let endPos = length l
startPos = endPos - (length (takeWhile (\ x -> x == ' ') ( reverse l))) + 1
posDif = endPos - startPos
sp = "space" ++ (if posDif > 1 then "s" else "")
(report (Message
(Span
(Position n startPos)
(Position n endPos))
( colorizeKey (show (endPos - startPos))
<+> text "trailing"
<+> colorizeKey sp
<+> text "found")
( text "delete"
<+> colorizeKey sp
<+> text "at end of line"))))
|
|
demand:
|
argument 1
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
--Check for each line, if the last character is a space, in this case get the
--number of them (by reversing the line) and report
|
|
failfree:
|
<FAILING>
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{({(,)}) |-> _}
|
|
name:
|
checkTSpaces
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
(Prelude.Int, String)
-> Control.Monad.Trans.State.StateT Types.CheckState Data.Functor.Identity.Identity ()
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|