File tree Expand file tree Collapse file tree 1 file changed +1
-1
lines changed
scls-util/src/Cardano/SCLS/Util Expand file tree Collapse file tree 1 file changed +1
-1
lines changed Original file line number Diff line number Diff line change @@ -17,7 +17,6 @@ import Cardano.Types.SlotNo (SlotNo (SlotNo))
1717import Control.Exception (SomeException , bracket , catch )
1818import Control.Monad (foldM )
1919import Data.Function ((&) )
20- import Data.Map (Map )
2120import Data.Map.Strict qualified as Map
2221import Data.MemPack.Extra
2322import Streaming qualified as S
@@ -115,6 +114,7 @@ mergeFiles outputFile sourceFiles = do
115114 files
116115 -- Open file handles for each namespace's files, execute the given action,
117116 -- and ensure all handles are closed afterwards.
117+ withNamespaceHandles :: Map. Map Namespace [FilePath ] -> ([(Namespace , [Handle ])] -> IO a ) -> IO a
118118 withNamespaceHandles nsToFiles =
119119 bracket
120120 ( Map. foldrWithKey
You can’t perform that action at this time.
0 commit comments