import {-# SOURCE #-} DsBinds ( dsBinds )
#endif
-import CmdLineOpts ( opt_WarnIncompletePatterns, opt_WarnOverlappedPatterns,
+import CmdLineOpts ( opt_WarnIncompletePatterns, opt_WarnOverlappingPatterns,
opt_PprUserLength,opt_WarnSimplePatterns
)
import HsSyn
match vars qs
where (pats,indexs) = check qs
incomplete = opt_WarnIncompletePatterns && (length pats /= 0)
- shadow = opt_WarnOverlappedPatterns && sizeUniqSet indexs < no_eqns
+ shadow = opt_WarnOverlappingPatterns && sizeUniqSet indexs < no_eqns
no_eqns = length qs
unused_eqns = uniqSetToList (mkUniqSet [1..no_eqns] `minusUniqSet` indexs)
eqns_shadow = map (\n -> qs!!(n - 1)) unused_eqns
This variable shows the maximun number of lines of output generated for warnings.
It will limit the number of patterns/equations displayed to maximum_output.
+(ToDo: add command-line option?)
+
\begin{code}
maximum_output = 4
\end{code}