@@ -282,8 +282,8 @@ class Monad m => MonadPlus (m : Set -> Set) where {
282282\useverb{monadplus}
283283
284284\noindent
285−In general, a comprehension takes the form \texttt{[ exp | qual ]} where
286−\texttt{qual} can be one of:
285+In general, a comprehension takes the form \texttt{[ exp | qual1, qual2, ..., qualn ]} where
286+\texttt{quali} can be one of:
287287
288288\begin{itemize}
289289\item A generator \texttt{x <- e}
@@ -314,5 +314,14 @@ do { qual1; qual2; ...; qualn; return exp; }
314314\end{SaveVerbatim}
315315\useverb{comptrans}
316316
317+\noindent
318+Using monad comprehensions, an alternative definition for \texttt{m\_add} would be:
319+
320+\begin{SaveVerbatim}{maddb}
321+
322+m_add : Maybe Int -> Maybe Int -> Maybe Int;
323+m_add x y = [ x' + y' | x' <- x, y' <- y ];
324+\end{SaveVerbatim}
325+\useverb{maddb}
317326
318327