Rename Data.Text.Lazy.IO import

trchopan · Apr 13, 2022 · c35de92 · c35de92
1 parent 2716983
commit c35de92
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Application/PersistReport.hs b/src/Application/PersistReport.hs
@@ -13,7 +13,7 @@ import           Application.HistoryBlocks      ( HistoryBlocksArgs
 import           Control.Monad                  ( forM_ )
 import           Data.Aeson.Encode.Pretty       ( encodePretty )
 import           Data.Text.Lazy.Encoding        ( decodeUtf8 )
-import qualified Data.Text.Lazy.IO             as I
+import qualified Data.Text.Lazy.IO             as LIO
 import           Domain.ArmadaNonce             ( ArmadaNonce
                                                   ( ArmadaNonce
                                                   , epochArmadaNonce
@@ -66,7 +66,7 @@ persistReport fromEpoch filePath (PersistReportArgs blockFrostApi poolId vrfFile
           let schedules =
                 map (\slot -> Schedule slot (slotToTime slot)) leaderSlots
               newDbReport = EpochSchedules epoch (length leaderSlots) schedules
-          I.writeFile (filePath ++ show epoch ++ ".json")
+          LIO.writeFile (filePath ++ show epoch ++ ".json")
             $ decodeUtf8
             $ encodePretty newDbReport