| definition: |
checkIfThenElseInThreeLines :: Span -> Int -> Int -> Int -> CSM ()
checkIfThenElseInThreeLines sp pi pt pe =
if pt == pe
then unless (pe-pi == 2) (report (Message
sp
( colorizeKey "then"
<+> text "and"
<+> colorizeKey "else"
<+> text "not properly indented"
)
( text "indent by 2 from"
<+> colorizeKey "if"
)
)
)
else report (Message
sp
( colorizeKey "then"
<+> text "and"
<+> colorizeKey "else"
<+> text "not aligned"
)
( text "align"
<+> colorizeKey "then"
<+> text "and"
<+> colorizeKey "else"
)
)
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
-- See above, but also, if then starts in another line, indent by 2. |
| failfree: |
(_, _, _, _) |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_,_,_) |-> _}
|
| name: |
checkIfThenElseInThreeLines |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
Curry.Span.Span -> Prelude.Int -> Prelude.Int -> Prelude.Int -> 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 |