Bug#1013786: haskell-knob FTBFS: Couldn't match type ‘?=()=?UTF-8?Q?’ with ‘Integer’

[Adrian Bunk]

Source: haskell-knob
Version: 0.1.1-13
Severity: serious
Tags: ftbfs bookworm sid

https://buildd.debian.org/status/package.php?p=haskell-knob&suite=sid

...
lib/Data/Knob.hs:71:17: error:
    • Couldn't match type ‘()’ with ‘Integer’
      Expected: IO Integer
        Actual: IO ()
    • In a stmt of a 'do' block:
        MVar.modifyMVar_ var (\ _ -> return (fromInteger off))
      In the expression:
        do checkOffset off
           MVar.modifyMVar_ var (\ _ -> return (fromInteger off))
      In an equation for ‘IO.seek’:
          IO.seek (Device _ _ var) IO.AbsoluteSeek off
            = do checkOffset off
                 MVar.modifyMVar_ var (\ _ -> return (fromInteger off))
   |
71 |                 MVar.modifyMVar_ var (\_ -> return (fromInteger off))
   |                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

lib/Data/Knob.hs:74:17: error:
    • Couldn't match type ‘()’ with ‘Integer’
      Expected: IO Integer
        Actual: IO ()
    • In a stmt of a 'do' block:
        MVar.modifyMVar_
          var
          (\ old_off
             -> do let new_off = ...
                   checkOffset new_off
                   return (fromInteger new_off))
      In the expression:
        do MVar.modifyMVar_
             var
             (\ old_off
                -> do let ...
                      ....)
      In an equation for ‘IO.seek’:
          IO.seek (Device _ _ var) IO.RelativeSeek off
            = do MVar.modifyMVar_ var (\ old_off -> do ...)
   |
74 |                 MVar.modifyMVar_ var (\old_off -> do
   |                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...

lib/Data/Knob.hs:80:17: error:
    • Couldn't match type ‘()’ with ‘Integer’
      Expected: IO Integer
        Actual: IO ()
    • In a stmt of a 'do' block:
        MVar.modifyMVar_
          off_var
          (\ _
             -> do size <- IO.getSize dev
                   let new_off = ...
                   checkOffset new_off
                   ....)
      In the expression:
        do MVar.modifyMVar_
             off_var
             (\ _
                -> do size <- IO.getSize dev
                      ....)
      In an equation for ‘IO.seek’:
          IO.seek dev@(Device _ _ off_var) IO.SeekFromEnd off
            = do MVar.modifyMVar_ off_var (\ _ -> do ...)
   |
80 |                 MVar.modifyMVar_ off_var (\_ -> do
   |                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
 at /usr/share/perl5/Debian/Debhelper/Buildsystem/Haskell/Recipes.pm line 107.
	Debian::Debhelper::Buildsystem::Haskell::Recipes::run_quiet("debian/hlibrary.setup", "haddock", "--builddir=dist-ghc", "--with-haddock=/usr/bin/haddock", "--with-ghc=ghc", "--verbose=2", "--html", "--hoogle", ...) called at /usr/share/perl5/Debian/Debhelper/Buildsystem/Haskell/Recipes.pm line 131
	Debian::Debhelper::Buildsystem::Haskell::Recipes::run("debian/hlibrary.setup", "haddock", "--builddir=dist-ghc", "--with-haddock=/usr/bin/haddock", "--with-ghc=ghc", "--verbose=2", "--html", "--hoogle", ...) called at /usr/share/perl5/Debian/Debhelper/Buildsystem/Haskell/Recipes.pm line 707
	Debian::Debhelper::Buildsystem::Haskell::Recipes::haddock_recipe() called at -e line 1
make: *** [/usr/share/cdbs/1/class/hlibrary.mk:153: build-ghc-stamp] Error 25