Literate haskell: support `\begin{code}` ... `\end{code}`

In an lhs file, lines starting with > are correctly highlighted but sections marked with \begin{code} and \end{code} are not highlighted at all. Could they be, please?