| definition: |
checkClass' :: SpanInfo -> [Decl a] -> Int -> CSM ()
checkClass' sp [] _ = case sp of
(SpanInfo (Span (Position l1 c1) _ ) sps) -> do
let (Span _ (Position lw2 cw2)) = last sps
unless (l1 == lw2) -- line position of keywords class and where
(report (Message (Span (Position l1 c1) (Position lw2 cw2))
(colorizeKey "class declaration" <+> text "wrong formatting")
( text "write"
<+> colorizeKey "class"
<+> text "till"
<+> colorizeKey "where"
<+> text "in one line"
)
)
)
_ -> return ()
checkClass' sp (decl:decls) i = case sp of
(SpanInfo wholeSp@(Span (Position l1 c1) _ ) sps) -> do
let (Span _ (Position lw2 cw2)) = last sps
if (l1 == lw2) -- line position of keywords class and where
then
--alignment of declarations and signatures of a class
(if (checkAlign (getCol) (getCol (getSpanInfo decl)) decls)
then
(unless (i+2 == getCol (getSpanInfo decl)) -- indentation
(report (Message wholeSp
(colorizeKey "class body" <+> text "wrong identation")
( text "indent by 2 from"
<+> colorizeKey "class declaration"
)
)
)
)
else
(report (Message wholeSp
(colorizeKey "class body" <+> text "not aligned")
( text "align"
<+> colorizeKey "class body"
)
)
)
)
else
(report (Message (Span (Position l1 c1) (Position lw2 cw2))
(colorizeKey "class declaration" <+> text "wrong formatting")
( text "write"
<+> colorizeKey "class"
<+> text "till"
<+> colorizeKey "where"
<+> text "in one line"
)
)
)
_ -> return ()
|
| demand: |
arguments 1 2 |
| deterministic: |
deterministic operation |
| documentation: |
-- Checks formation of class declarations. |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{({SpanInfo},{[]},_) |-> _ || ({NoSpanInfo},{[]},_) |-> _ || ({SpanInfo},{:},_) |-> _ || ({NoSpanInfo},{:},_) |-> _}
|
| name: |
checkClass' |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
Curry.SpanInfo.SpanInfo -> [Curry.Types.Decl a] -> 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 |