diff --git a/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs b/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs index 3980a242..4b47fbc6 100644 --- a/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs +++ b/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs @@ -153,7 +153,7 @@ simpleStorageWorker ss = do Just a -> a >> next killer <- async $ forever $ do - pause ( 30 :: Timeout 'Seconds ) -- FIXME: setting + pause ( 20 :: Timeout 'Seconds ) -- FIXME: setting atomically $ do