<br><font size=2 face="sans-serif">Is there some way to compile the following
function in yhc?</font>
<br>
<br><font size=2 face="sans-serif">works in ghc with glasgow exts deactivated,
yhc complains context for Prelude.read needed (in final line)</font>
<br>
<br>
<br><font size=2 face="Courier New">readfloat :: String -> Maybe Float</font>
<br><font size=2 face="Courier New">readfloat x | null parse || not (null
leftover) = fail $ "myRead: "++x</font>
<br><font size=2 face="Courier New">
| otherwise = return v</font>
<br><font size=2 face="Courier New"> where parse@((v,leftover):ps)
= readsPrec 0 x</font>
<br>
<br><font size=2 face="sans-serif">thanks!</font>
<br>
<br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">---</span><br>
<br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">This e-mail may contain confidential and/or privileged information. If you </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">are not the intended recipient (or have received this e-mail in error) </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">please notify the sender immediately and destroy this e-mail. Any </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">unauthorized copying, disclosure or distribution of the material in this </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">e-mail is strictly forbidden.</span><br>