New writeByteStringFile, writeByteStringOutput, writeTextFile and writeTextOutput functions

Author: newhoggy

cardano-api/src/Cardano/Api.hs

@@ -36,6 +36,12 @@ module Cardano.Api (
     -- ** IO
     OutputFile(..),
 
+    writeByteStringFile,
+    writeByteStringOutput,
+
+    writeTextFile,
+    writeTextOutput,
+
     -- ** Deprecated
     Byron,
     Shelley,

cardano-api/src/Cardano/Api/IO.hs

@@ -1,8 +1,43 @@
 module Cardano.Api.IO
   ( OutputFile(..)
+
+  , writeByteStringFile
+  , writeByteStringOutput
+
+  , writeTextFile
+  , writeTextOutput
   ) where
 
+import           Cardano.Api.Error (FileError (..))
+
+import           Control.Monad.IO.Class (MonadIO (..))
+import           Control.Monad.Trans.Except (ExceptT)
+import           Control.Monad.Trans.Except.Extra (handleIOExceptT)
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString.Char8 as BS
+import qualified Data.ByteString.Char8 as BSC
+import           Data.Text (Text)
+import qualified Data.Text.IO as Text
+
 newtype OutputFile = OutputFile
   { unOutputFile :: FilePath
   }
   deriving Show
+
+writeByteStringFile :: MonadIO m => OutputFile -> ByteString -> ExceptT (FileError ()) m ()
+writeByteStringFile (OutputFile fp) bs =
+  handleIOExceptT (FileIOError fp) $ BS.writeFile fp bs
+
+writeByteStringOutput :: MonadIO m => Maybe OutputFile -> ByteString -> ExceptT (FileError ()) m ()
+writeByteStringOutput mOutput bs = case mOutput of
+  Just (OutputFile fp) -> handleIOExceptT (FileIOError fp) $ BS.writeFile fp bs
+  Nothing -> liftIO $ BSC.putStr bs
+
+writeTextFile :: MonadIO m => OutputFile -> Text -> ExceptT (FileError ()) m ()
+writeTextFile (OutputFile fp) t =
+  handleIOExceptT (FileIOError fp) $ Text.writeFile fp t
+
+writeTextOutput :: MonadIO m => Maybe OutputFile -> Text -> ExceptT (FileError ()) m ()
+writeTextOutput mOutput t = case mOutput of
+  Just (OutputFile fp) -> handleIOExceptT (FileIOError fp) $ Text.writeFile fp t
+  Nothing -> liftIO $ Text.putStr t