Commit 5ddff57123600372ebecdf346ae507e47a1adba6 - config-ini

Fix ini-compat test and add lower version bound Getty Ritter 3 years ago

2 changed file(s) with 7 addition(s) and 5 deletion(s). Collapse all Expand all

-1

config-ini.cabal less more

59	59	hs-source-dirs: test/ini-compat
60	60	main-is: Main.hs
61	61	build-depends: base
62		, ini
	62	, ini >=4.0
63	63	, config-ini
64	64	, hedgehog
65	65	, containers

-4

test/ini-compat/Main.hs less more

50	50	Right (toMaps raw) === fmap toMaps (I2.parseRawIni (I2.printRawIni raw))
51	51
52	52	lower :: I1.Ini -> HashMap Text (HashMap Text Text)
53		lower (I1.Ini ini) = go (fmap go ini)
54		where go hm = HM.fromList [ (T.toLower k, v) \| (k, v) <- HM.toList hm ]
	53	lower (I1.Ini sections _) = HM.fromList
	54	[ (T.toLower sectionName, HM.fromList [ (T.toLower k, v) \| (k, v) <- section ])
	55	\| (sectionName, section) <- HM.toList sections
	56	]
55	57
56	58	toMaps :: I2.RawIni -> HashMap Text (HashMap Text Text)
57	59	toMaps (I2.RawIni m) = conv (fmap sectionToPair m)

70	72	name <- textChunk
71	73	section <- Gen.list (Range.linear 0 10) $
72	74	(,) <$> textChunk <*> textChunk
73		return (name, HM.fromList section)
74		return (I1.Ini (HM.fromList ss))
	75	return (name, section)
	76	return (I1.Ini (HM.fromList ss) [])
75	77
76	78	mkComments :: Gen (Seq.Seq I2.BlankLine)
77	79	mkComments = fmap Seq.fromList $ Gen.list (Range.linear 0 5) $