CurryInfo: currydoc-4.0.0 / CurryDoc.Read.groupLines

 
groupLines :: [SourceLine] -> (String,[(SourceLine,String)])
groupLines sls =
  let (modcmts,progcmts) = break (==ModDef) sls
   in if progcmts == []
      then ("", groupProgLines sls)
      else (concatMap getComment modcmts,
            groupProgLines (filter (/=ModDef) (tail progcmts)))
 where
   getComment src = case src of
      Comment cmt -> cmt ++ "\n"
      _           -> "" -- this case should usually not occur

 no demanded arguments

 deterministic operation

 
group the classified lines into module comment and list of
(Func/DataDef,comment) pairs:

 _

 referentially transparent operation

 no fixity defined

 {(_) |-> {(,)}}

 groupLines

 no precedence defined

 {(,)}

 [SourceLine] -> (String, [(SourceLine, String)])

 operation might suspend on free variables

 possibly non-terminating

 possibly non-reducible on same data term