Disambiguate string type

kowainik · Nov 2, 2023 · 0f10726 · 0f10726
1 parent 37f1646
commit 0f10726
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Test/Toml/Gen.hs b/test/Test/Toml/Gen.hs
@@ -114,7 +114,7 @@ genPiece = Piece <$> Gen.choice [bare, quoted]
     bare = liftA2 Text.cons Gen.alpha $ Gen.text (Range.constant 1 10) alphadashes
 
     alphadashes :: Gen Char
-    alphadashes = Gen.choice [Gen.alphaNum, Gen.element "_-"]
+    alphadashes = Gen.choice [Gen.alphaNum, Gen.element ("_-" :: [Char])]
 
     quoted :: Gen Text
     quoted = genNotEscape $ Gen.choice