ganeti 3.0.1 compile failure

gistfile1.txt

https://github.com/ganeti/ganeti/blob/master/src/Ganeti/THH/Types.hs#L118

-- | Generic 'curry' that constructs a curring function of a given arity.
curryN :: Int -> Q Exp
curryN 0 = [| ($ ()) |]
curryN 1 = [| (. OneTuple) |]
curryN n = do
  f <- newName "f"
  ps <- replicateM n (newName "x")
  return $ LamE (VarP f : map VarP ps)
             (AppE (VarE f) (TupE $ map VarE ps))
             
             
             
             
src/Ganeti/THH/Types.hs:126:37: error:
    • Couldn't match type ‘Exp’ with ‘Maybe Exp’
      Expected type: [Maybe Exp]
        Actual type: [Exp]
    • In the second argument of ‘($)’, namely ‘map VarE ps’
      In the second argument of ‘AppE’, namely ‘(TupE $ map VarE ps)’
      In the second argument of ‘LamE’, namely
        ‘(AppE (VarE f) (TupE $ map VarE ps))’
    |
126 |              (AppE (VarE f) (TupE $ map VarE ps))
    |                                     ^^^^^^^^^^^
make: *** [Makefile:4359: src/Ganeti/THH/Types.o] Error 1