module Halfs.FSRW where

class Monad m => FSRW m where
    unsafeLiftIORW :: IO a -> m a

-- |FIX: Remove this instance someday. 
instance FSRW IO where
    unsafeLiftIORW = id