Bug#1021574: haskell-thyme FTBFS: Couldn't match type

[Adrian Bunk]

Source: haskell-thyme
Version: 0.3.5.5-5
Severity: serious
Tags: ftbfs

https://buildd.debian.org/status/fetch.php?pkg=haskell-thyme&arch=amd64&ver=0.3.5.5-5%2Bb4&stamp=1658619154&raw=0

...
src/Data/Thyme/Time/Core.hs:287:23: error:
    • Couldn't match type: forall (p :: * -> * -> *) (f :: * -> *).
                           (Data.Profunctor.Unsafe.Profunctor p, Functor f) =>
                           Control.Lens.Overloaded
                             p f UTCTime UTCTime AbsoluteTime AbsoluteTime
                     with: (AbsoluteTime
                            -> Data.Functor.Const.Const AbsoluteTime AbsoluteTime)
                           -> UTCTime -> Data.Functor.Const.Const AbsoluteTime UTCTime
      Expected: LeapSecondTable
                -> Control.Lens.Getting AbsoluteTime UTCTime AbsoluteTime
        Actual: LeapSecondTable -> Iso' UTCTime AbsoluteTime
    • In the second argument of ‘(.)’, namely ‘absoluteTime’
      In the expression: view . absoluteTime
      In an equation for ‘utcToTAITime’:
          utcToTAITime = view . absoluteTime
    |
287 | utcToTAITime = view . absoluteTime
    |                       ^^^^^^^^^^^^

src/Data/Thyme/Time/Core.hs:291:25: error:
    • Couldn't match type: forall (p :: * -> * -> *) (f :: * -> *).
                           (Data.Profunctor.Unsafe.Profunctor p, Functor f) =>
                           Control.Lens.Overloaded
                             p f UTCTime UTCTime AbsoluteTime AbsoluteTime
                     with: Control.Lens.Reviewed
                             a2 (Data.Functor.Identity.Identity AbsoluteTime)
                           -> Control.Lens.Reviewed
                                s2 (Data.Functor.Identity.Identity UTCTime)
      Expected: LeapSecondTable
                -> Control.Lens.AReview s2 UTCTime a2 AbsoluteTime
        Actual: LeapSecondTable -> Iso' UTCTime AbsoluteTime
    • In the second argument of ‘(.)’, namely ‘absoluteTime’
      In the expression: review . absoluteTime
      In an equation for ‘taiToUTCTime’:
          taiToUTCTime = review . absoluteTime
    |
291 | taiToUTCTime = review . absoluteTime
    |                         ^^^^^^^^^^^^

src/Data/Thyme/Time/Core.hs:322:25: error:
    • Couldn't match type: forall (p :: * -> * -> *) (f :: * -> *).
                           (Data.Profunctor.Unsafe.Profunctor p, Functor f) =>
                           Control.Lens.Overloaded p f UTCTime UTCTime LocalTime LocalTime
                     with: (LocalTime -> Data.Functor.Const.Const LocalTime LocalTime)
                           -> UTCTime -> Data.Functor.Const.Const LocalTime UTCTime
      Expected: TimeZone
                -> Control.Lens.Getting LocalTime UTCTime LocalTime
        Actual: TimeZone -> Iso' UTCTime LocalTime
    • In the second argument of ‘(.)’, namely ‘utcLocalTime’
      In the expression: view . utcLocalTime
      In an equation for ‘utcToLocalTime’:
          utcToLocalTime = view . utcLocalTime
    |
322 | utcToLocalTime = view . utcLocalTime
    |                         ^^^^^^^^^^^^

src/Data/Thyme/Time/Core.hs:326:27: error:
    • Couldn't match type: forall (p :: * -> * -> *) (f :: * -> *).
                           (Data.Profunctor.Unsafe.Profunctor p, Functor f) =>
                           Control.Lens.Overloaded p f UTCTime UTCTime LocalTime LocalTime
                     with: Control.Lens.Reviewed
                             a1 (Data.Functor.Identity.Identity LocalTime)
                           -> Control.Lens.Reviewed
                                s1 (Data.Functor.Identity.Identity UTCTime)
      Expected: TimeZone -> Control.Lens.AReview s1 UTCTime a1 LocalTime
        Actual: TimeZone -> Iso' UTCTime LocalTime
    • In the second argument of ‘(.)’, namely ‘utcLocalTime’
      In the expression: review . utcLocalTime
      In an equation for ‘localTimeToUTC’:
          localTimeToUTC = review . utcLocalTime
    |
326 | localTimeToUTC = review . utcLocalTime
    |                           ^^^^^^^^^^^^

src/Data/Thyme/Time/Core.hs:330:25: error:
    • Couldn't match type: forall (p :: * -> * -> *) (f :: * -> *).
                           (Data.Profunctor.Unsafe.Profunctor p, Functor f) =>
                           Control.Lens.Overloaded
                             p f UniversalTime UniversalTime LocalTime LocalTime
                     with: (LocalTime -> Data.Functor.Const.Const LocalTime LocalTime)
                           -> UniversalTime
                              -> Data.Functor.Const.Const LocalTime UniversalTime
      Expected: Rational
                -> Control.Lens.Getting LocalTime UniversalTime LocalTime
        Actual: Rational -> Iso' UniversalTime LocalTime
    • In the second argument of ‘(.)’, namely ‘ut1LocalTime’
      In the expression: view . ut1LocalTime
      In an equation for ‘ut1ToLocalTime’:
          ut1ToLocalTime = view . ut1LocalTime
    |
330 | ut1ToLocalTime = view . ut1LocalTime
    |                         ^^^^^^^^^^^^

src/Data/Thyme/Time/Core.hs:334:27: error:
    • Couldn't match type: forall (p :: * -> * -> *) (f :: * -> *).
                           (Data.Profunctor.Unsafe.Profunctor p, Functor f) =>
                           Control.Lens.Overloaded
                             p f UniversalTime UniversalTime LocalTime LocalTime
                     with: Control.Lens.Reviewed
                             a0 (Data.Functor.Identity.Identity LocalTime)
                           -> Control.Lens.Reviewed
                                s0 (Data.Functor.Identity.Identity UniversalTime)
      Expected: Rational
                -> Control.Lens.AReview s0 UniversalTime a0 LocalTime
        Actual: Rational -> Iso' UniversalTime LocalTime
    • In the second argument of ‘(.)’, namely ‘ut1LocalTime’
      In the expression: review . ut1LocalTime
      In an equation for ‘localTimeToUT1’:
          localTimeToUT1 = review . ut1LocalTime
    |
334 | localTimeToUT1 = review . ut1LocalTime
    |                           ^^^^^^^^^^^^
...