From a2cd68ad63339068942ca8c38f454dbc50517fa4 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Fri, 23 Oct 2009 13:25:51 +0200
Subject: [PATCH] Add \typebufferhs command to Haskell-typeset a buffer.

---
 Utils/Lambda.tex | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Utils/Lambda.tex b/Utils/Lambda.tex
index 6ad1fbb..4c65749 100644
--- a/Utils/Lambda.tex
+++ b/Utils/Lambda.tex
@@ -90,6 +90,19 @@ draw b;
   \setuptyping[option=none,style=\tttf]
 }
 
+% Type the given buffer with the haskell typing style.
+% e.g., \typebufferhs{buffname}
+\define[1]\typebufferhs{
+  % We can't use \startlambda here defined by definetyping[lambda] above when
+  % typing buffers, so instead we'll redfine the options here.
+  \setuptyping[option=HASKELL,style=mono]
+  \startboxed
+  \typebuffer[#1]
+  \stopboxed
+  % Reset the typing options
+  \setuptyping[option=none,style=\tttf]
+}
+
 % Display a useMPgraphic in a pretty box
 \define[1]\boxedgraphic{
   \startboxed
-- 
2.30.2