Remove unnecessary brackets, simplify pattern match

src/Quasar/Resources/Disposer.hs

@@ -246,7 +246,7 @@ resourceManagerIsDisposed rm = unsafeAwaitSTM $
 resourceManagerIsDisposing :: ResourceManager -> Awaitable ()
 resourceManagerIsDisposing rm = unsafeAwaitSTM $
   readTVar (resourceManagerState rm) >>= \case
-    (ResourceManagerNormal _ _ _) -> retry
+    ResourceManagerNormal {} -> retry
     _ -> pure ()
 
 

src/Quasar/Timer.hs

@@ -141,7 +141,7 @@ startSchedulerThread scheduler = getDisposer <$> async (schedulerThread `finally
           case uncons timers of
             Nothing -> pure timers
             Just (timer, others) -> do
-              if (time timer) <= now
+              if time timer <= now
                 then do
                   fireTimer timer
                   pure others