js :: a -> (Void, a)
js x = (undefined, x)

left :: (Void, Either a b) -> a
left (_, Left x) = x

There we go... now it looks truly terrifying:

left.js $(myValue)


(Apologies to Kosyrev for the double-send. Especially since that version was broken.)

On Fri, May 20, 2016 at 2:36 PM, Kosyrev Serge <_deepfire@feelingofgreen.ru> wrote:
Dan Burton <danburton.email@gmail.com> writes:
> I wouldn't mind something like this being available... but only if
> prefixed with the word "unsafe" or "partial" or other such scary
> words.

Heh, `unsafePerformLeft` / `unsafePerformRight` ? : -)

--
с уважениeм / respectfully,
Косырев Сергей
_______________________________________________
Libraries mailing list
Libraries@haskell.org
http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries