From 3d65a3bf16e3a0fabcda4460174809c70c0b606b Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 24 Mar 2022 10:29:28 +0200
Subject: [PATCH] Remove NumericUnderscores for older GHCs

---
 yesod-core/test/YesodCoreTest/ErrorHandling.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/yesod-core/test/YesodCoreTest/ErrorHandling.hs b/yesod-core/test/YesodCoreTest/ErrorHandling.hs
index b35c93d2..bc02570f 100644
--- a/yesod-core/test/YesodCoreTest/ErrorHandling.hs
+++ b/yesod-core/test/YesodCoreTest/ErrorHandling.hs
@@ -1,6 +1,5 @@
 {-# LANGUAGE TypeFamilies, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE ViewPatterns #-}
 module YesodCoreTest.ErrorHandling
     ( errorHandlingTest
@@ -144,7 +143,7 @@ getAsyncSessionR = do
   setSession "jap" $ foldMap (pack . show) [0..999999999999999999999999] -- it's going to take a while to figure this one out
   x <- liftIO Conc.myThreadId
   liftIO $ forkIO $ do
-     liftIO $ Conc.threadDelay 100_000
+     liftIO $ Conc.threadDelay 100000
      Conc.killThread x
   pure "reachable"