\section[lit2pgm_for_hs]{Lit2pgm-only code for language \tr{hs}}

\begin{code}
sub mk_line_directive {
    local($filename,$lineno) = @_;

    "\{-# LINE $lineno \"$filename\" -\}\n";
}

# so we get 'do'ne correctly
1;
\end{code}