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