haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove NumericUnderscores for older GHCs

Browse Source
This commit is contained in:
Michael Snoyman 2022-03-24 10:29:28 +02:00
parent 60111462de
commit 3d65a3bf16
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-core/test/YesodCoreTest/ErrorHandling.hs
View File

@ -1,6 +1,5 @@
{-# LANGUAGE TypeFamilies, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, OverloadedStrings #-} {-# LANGUAGE TypeFamilies, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE NumericUnderscores #-}
{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE ViewPatterns #-}
module YesodCoreTest.ErrorHandling module YesodCoreTest.ErrorHandling
( errorHandlingTest ( 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 setSession "jap" $ foldMap (pack . show) [0..999999999999999999999999] -- it's going to take a while to figure this one out
x <- liftIO Conc.myThreadId x <- liftIO Conc.myThreadId
liftIO $ forkIO $ do liftIO $ forkIO $ do
liftIO $ Conc.threadDelay 100_000 liftIO $ Conc.threadDelay 100000
Conc.killThread x Conc.killThread x
pure "reachable" pure "reachable"