Skip to content

Commit 2f4d2b1

Browse files
committed
Use the qualified import
1 parent 663b24a commit 2f4d2b1

File tree

1 file changed

+1
-1
lines changed
  • scls-util/src/Cardano/SCLS/Util

1 file changed

+1
-1
lines changed

scls-util/src/Cardano/SCLS/Util/Tool.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,6 @@ import Cardano.Types.SlotNo (SlotNo (SlotNo))
1717
import Control.Exception (SomeException, bracket, catch)
1818
import Control.Monad (foldM)
1919
import Data.Function ((&))
20-
import Data.Map (Map)
2120
import Data.Map.Strict qualified as Map
2221
import Data.MemPack.Extra
2322
import 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

0 commit comments

Comments
 (0)