compression-0.1: Codec/Compression/UnsafeInterleave.hs

module Codec.Compression.UnsafeInterleave where

import Control.Monad.ST
import System.IO.Unsafe

class UnsafeInterleave m where
    unsafeInterleave :: m a -> m a

instance UnsafeInterleave IO where
    unsafeInterleave = unsafeInterleaveIO

instance UnsafeInterleave (ST s) where
    unsafeInterleave = unsafeInterleaveST