module CabalGild.Class.MonadWrite where import qualified Data.ByteString as ByteString class (Monad m) => MonadWrite m where write :: Maybe FilePath -> ByteString.ByteString -> m () instance MonadWrite IO where write :: Maybe FilePath -> ByteString -> IO () write = (ByteString -> IO ()) -> (FilePath -> ByteString -> IO ()) -> Maybe FilePath -> ByteString -> IO () forall b a. b -> (a -> b) -> Maybe a -> b maybe ByteString -> IO () ByteString.putStr FilePath -> ByteString -> IO () ByteString.writeFile