From 3130fecf077d71b02b8b4d51de760b928dded910 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sat, 9 Dec 2017 15:09:22 +0000
Subject: [PATCH] Add missing code blocks to layout docs

---
 doc/showcases/Layout_Types.md | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/doc/showcases/Layout_Types.md b/doc/showcases/Layout_Types.md
index d34ca14..abf05e8 100644
--- a/doc/showcases/Layout_Types.md
+++ b/doc/showcases/Layout_Types.md
@@ -44,6 +44,7 @@ linewise
   -> RH.AppHost t ()
 ~~~~
 
+~~~~.hs
 linewise ::
      forall n t.
      (Ord n, R.ReflexHost t, MonadIO (R.PushM t), MonadIO (R.HostFrame t))
@@ -54,8 +55,9 @@ linewise ::
                                                                       , R.Behavior t String -- tab-completion value
                                                                       , R.Dynamic t (Widget n)))
   -> RH.AppHost t ()
+~~~~
 
-
+~~~~.hs
 processDefault ::
      ( ExactPrint.Annotate.Annotate ast
      , MonadMultiWriter Text.Builder.Builder m
@@ -63,3 +65,4 @@ processDefault ::
      )
   => Located ast
   -> m ()
+~~~~