<div dir="ltr">Hi the list,<br><div>why do this function doesn&#39;t compile (parse error):<br><br><span style="font-family:courier new,monospace">test :: Bool -&gt; IO ()<br>test foo = do<br>   let bar = case foo of <br>       True -&gt;  &quot;Foo&quot;; <br>
       False -&gt; &quot;Bar&quot;<br>   return ()</span><br><br></div><div>while this one does (just adding one space in front of True and False):<br><br><span style="font-family:courier new,monospace">test :: Bool -&gt; IO ()<br>
test foo = do<br>   let bar = case foo of <br>        True -&gt;  &quot;Foo&quot;; <br>        False -&gt; &quot;Bar&quot;<br>   return ()</span><br><br><br></div><div>Thanks!!<br></div><div>Corentin<br></div></div>