|
definition:
|
checkDecls :: Int -> Span -> [Decl a] -> CSM ()
checkDecls _ _ [] = return ()
checkDecls i sp (decl:decls) = case sp of
(Span (Position l1 c1) eP) ->
unless ((getEndLi (getSpanInfo decl)) == l1) $ do
unless (c1==(i+1))
(report (Message (Span (Position l1 c1) eP)
(colorizeKey "where" <+> text "wrong indention")
( text "indent by 1 space"
<+> text "from"
<+> colorizeKey "function start"
)
)
)
unless ((getCol (getSpanInfo decl)) == (i+2))
(report (Message (getSpan decl)
(colorizeKey "where" <+> text "body wrong indention")
( text "indent by 1 space"
<+> text "from"
<+> colorizeKey "where"
)
)
)
unless (checkAlign getCol (getCol (getSpanInfo decl)) decls)
(report (Message (getSpan decl)
(colorizeKey "where" <+> text "body not aligned")
( text "align"
<+> colorizeKey "where"
<+> text "body"
)
)
)
_ -> return ()
|
|
demand:
|
argument 3
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
-- Checks, if not all in one line, indentation of `where`,
-- body indentation and `where` body alignment.
|
|
failfree:
|
<FAILING>
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_,_,{[]}) |-> _ || (_,{Span},{:}) |-> _ || (_,{NoSpan},{:}) |-> _}
|
|
name:
|
checkDecls
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
Prelude.Int -> Curry.Span.Span -> [Curry.Types.Decl a]
-> 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
|