axel-0.0.11: src/Axel/Eff/Unsafe.hs

{- HLINT ignore "Avoid restricted function" -}
module Axel.Eff.Unsafe where

import Axel.Prelude

import qualified Polysemy as Sem

import System.IO.Unsafe (unsafePerformIO)

unsafeEmbedIO :: Sem.Sem (Sem.Embed IO ': effs) a -> Sem.Sem effs a
unsafeEmbedIO =
  Sem.interpret $ \case
    Sem.Embed x -> do
      let !result = unsafePerformIO x
      pure result