test/ini-compat/Main.hs failed to compile

[juhp]

Testsuite build failure in current Stackage Nightly:

Building test suite 'test-ini-compat' for config-ini-0.2.4.0..
[1 of 1] Compiling Main             ( test/ini-compat/Main.hs, dist/build/test-ini-compat/test-ini-compat-tmp/Main.o )

test/ini-compat/Main.hs:53:8: error:
    • The constructor ‘I1.Ini’ should have 2 arguments, but has been given 1
    • In the pattern: I1.Ini ini
      In an equation for ‘lower’:
          lower (I1.Ini ini)
            = go (fmap go ini)
            where
                go hm = HM.fromList [(T.toLower k, v) | (k, v) <- HM.toList hm]
   |
53 | lower (I1.Ini ini) = go (fmap go ini)
   |        ^^^^^^^^^^

test/ini-compat/Main.hs:74:3: error:
    • Couldn't match type ‘[(Text, Text)] -> I1.Ini’ with ‘I1.Ini’
      Expected type: GenT Data.Functor.Identity.Identity I1.Ini
        Actual type: GenT
                       Data.Functor.Identity.Identity ([(Text, Text)] -> I1.Ini)
    • In a stmt of a 'do' block: return (I1.Ini (HM.fromList ss))
      In the expression:
        do ss <- Gen.list (Range.linear 0 10)
                   $ do name <- textChunk
                        section <- Gen.list (Range.linear 0 10)
                                     $ (,) <$> textChunk <*> textChunk
                        ....
           return (I1.Ini (HM.fromList ss))
      In an equation for ‘mkIni’:
          mkIni
            = do ss <- Gen.list (Range.linear 0 10)
                         $ do name <- textChunk
                              ....
                 return (I1.Ini (HM.fromList ss))
   |
74 |   return (I1.Ini (HM.fromList ss))
   |   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

test/ini-compat/Main.hs:74:19: error:
    • Couldn't match type ‘HashMap Text Text’ with ‘[(Text, Text)]’
      Expected type: HashMap Text [(Text, Text)]
        Actual type: HashMap Text (HashMap Text Text)
    • In the first argument of ‘I1.Ini’, namely ‘(HM.fromList ss)’
      In the first argument of ‘return’, namely
        ‘(I1.Ini (HM.fromList ss))’
      In a stmt of a 'do' block: return (I1.Ini (HM.fromList ss))
   |
74 |   return (I1.Ini (HM.fromList ss))
   |                   ^^^^^^^^^^^^^^

[clinty]

This broke because the API changed between ini 0.3.6 and ini 0.4.0.

[aisamanra]

...well, I dragged my feet on this for quite a while, but it is fixed as of this commit. Sorry about the, uh, pretty egregious delay here!