module CabalGild.Unstable.Class.MonadWrite where
import qualified CabalGild.Unstable.Type.Output as Output
import qualified Data.ByteString as ByteString
class (Monad m) => MonadWrite m where
write :: Output.Output -> ByteString.ByteString -> m ()
instance MonadWrite IO where
write :: Output -> ByteString -> IO ()
write Output
o = case Output
o of
Output
Output.Stdout -> ByteString -> IO ()
ByteString.putStr
Output.File FilePath
f -> FilePath -> ByteString -> IO ()
ByteString.writeFile FilePath
f