Hi there,<br><br>I have created a function mkc:<br><br clear="all">mkc :: (a -&gt; b) -&gt; a -&gt; m b<br>mkc f = (\x -&gt; return $ f x)<br><br>which works wonderful in statements like:<br><br>number &lt;- many1 digit &gt;&gt;= mkc(read)<br>

<br>But somehow I think this function should already exist, it is some kind of lifting. If it exist where can I find it? Or is there a reason, why it isn&#39;t in prelude, because it is more elegant way to solve this problem. <br>

<br>Thanks in advance,<br><br>Edgar<br><br>