-- | Unsafe running of Fay actions in pure code.

module Fay.Unsafe where

import FFI

-- | Run a Fay action as a pure value.
unsafePerformFay :: Fay a -> a
unsafePerformFay :: Fay a -> a
unsafePerformFay = [Char] -> Fay a -> a
forall s a. IsString s => s -> a
ffi [Char]
"%1()"