Fix compatibility with template-haskell 2.17 for yesod

[felixonmars]

Fixes the following build failure with template-haskell 2.17:

[6 of 6] Compiling Yesod.Default.Util ( Yesod/Default/Util.hs, dist/build/Yesod/Default/Util.dyn_o )

Yesod/Default/Util.hs:116:17: error:
    • Couldn't match type ‘[Stmt] -> Exp’ with ‘Exp’
      Expected: Q Exp
        Actual: Q ([Stmt] -> Exp)
    • In the expression: return $ DoE $ map NoBindS exps
      In a case alternative: exps -> return $ DoE $ map NoBindS exps
      In a stmt of a 'do' block:
        case catMaybes mexps of
          [] -> error $ concat ["Called ", func, ....]
          exps -> return $ DoE $ map NoBindS exps
    |
116 |         exps -> return $ DoE $ map NoBindS exps
    |                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Yesod/Default/Util.hs:116:32: error:
    • Couldn't match expected type: Maybe ModName
                  with actual type: [Stmt]
    • In the second argument of ‘($)’, namely ‘map NoBindS exps’
      In the second argument of ‘($)’, namely ‘DoE $ map NoBindS exps’
      In the expression: return $ DoE $ map NoBindS exps
    |
116 |         exps -> return $ DoE $ map NoBindS exps
    |                                ^^^^^^^^^^^^^^^^

Before submitting your PR, check that you've:

• Bumped the version number

After submitting your PR:

• Update the Changelog.md file with a link to your PR
• Check that CI passes (or if it fails, for reasons unrelated to your change, like CI timeouts)

[snoyberg]

Thanks!