From 97a7220d637c48692728b92ab4cf848bebe9d593 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Wed, 28 May 2014 07:08:31 +0200
Subject: [PATCH] Fix code sample

---
 src/HL/V/Home.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/HL/V/Home.hs b/src/HL/V/Home.hs
index 52c719f..86680de 100644
--- a/src/HL/V/Home.hs
+++ b/src/HL/V/Home.hs
@@ -78,7 +78,9 @@ try =
                   " or"
                   haskellCode "foldr (:) [] [1,2,3]"
                   " or "
-                  haskellCode "do line <- getLine; putStrLn line or readFile \"/welcome\"")
+                  haskellCode "do line <- getLine; putStrLn line"
+                  " or "
+                  haskellCode "readFile \"/welcome\"")
          p [] (do a [href "https://hackage.haskell.org/package/pure-io-0.2.0/docs/PureIO.html#g:2"]
                     "These"
                   " IO actions are supported in this app.")