#!perl -nlw
#merges the description into 1 line for easier grepping
#TODO Synopsis can also be word wrapped.
# tail -c +0 -f noprof | # perl cabal-description2.pl | perl classify-ghc-errors-with-description2.pl | perl colorize-classified.pl
use FileHandle;
BEGIN{
    STDOUT->autoflush(1);
}

if($incabalinfo){
    if (/^[0-9.]+:  \+ /){
        $incabalinfo=0;
        die if $suppress;  # possible if Description was the last field
    } elsif (/^[0-9.]+:      Description:/){
        die if $suppress;
        $suppress=1;
        $x=$_;
        next;
    }
    if($suppress){
        if (/^[0-9].+:       \s*(.*)/){
            $x.=" $1";
        } else {
            print $x;
            $suppress=0;
        }
    }
}
if(/^[0-9.]+:  \+ cabal info \S+$/){
    die if $incabalinfo;
    die if $suppress;
    $incabalinfo=1;
}
print unless $suppress;