From 54c7502f0fbb1067063260c8bb47bc2137667c6e Mon Sep 17 00:00:00 2001 From: Willem van den Ende Date: Thu, 30 Apr 2026 21:45:42 +0100 Subject: [PATCH] fix test warnings: redundant Data.Text import, explicit Int types in Map ops --- test/Docster/TransformSpec.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test/Docster/TransformSpec.hs b/test/Docster/TransformSpec.hs index af29eb6..9fcbec0 100644 --- a/test/Docster/TransformSpec.hs +++ b/test/Docster/TransformSpec.hs @@ -4,7 +4,7 @@ module Docster.TransformSpec (spec) where import Test.Hspec import qualified Data.Map.Strict as Map -import Data.Text (Text) +import Data.Text() import qualified Data.Text as T import Text.Pandoc.Definition (Inline(..)) @@ -64,21 +64,21 @@ spec = do describe "diagram naming logic" $ do it "first diagram under heading has no suffix" $ let baseName = "file_flow" - counter = Map.findWithDefault 0 baseName Map.empty + counter = Map.findWithDefault (0 :: Int) baseName Map.empty diagName = if counter == 0 then baseName else baseName <> "_" <> T.pack (show counter) in diagName `shouldBe` "file_flow" it "second diagram gets _1 suffix" $ let baseName = "file_flow" - counters = Map.singleton "file_flow" 1 - counter = Map.findWithDefault 0 baseName counters + counters = Map.singleton "file_flow" (1 :: Int) + counter = Map.findWithDefault (0 :: Int) baseName counters diagName = if counter == 0 then baseName else baseName <> "_" <> T.pack (show counter) in diagName `shouldBe` "file_flow_1" it "third diagram gets _2 suffix" $ let baseName = "file_flow" - counters = Map.singleton "file_flow" 2 - counter = Map.findWithDefault 0 baseName counters + counters = Map.singleton "file_flow" (2 :: Int) + counter = Map.findWithDefault (0 :: Int) baseName counters diagName = if counter == 0 then baseName else baseName <> "_" <> T.pack (show counter) in diagName `shouldBe` "file_flow_2"