X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Freport.git;a=blobdiff_plain;f=Utils%2FLambda.tex;h=4c6574938c0766e1b4c2d9888a168b35723f9813;hp=6ad1fbbd9996524c46c12d931c202dbcbe26972f;hb=a2cd68ad63339068942ca8c38f454dbc50517fa4;hpb=5ea42c0c142beefa7f520b4303782b79ca2c796b

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