diff --git a/lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs b/lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs
index 7c4afdcf5c..67537eff6e 100644
--- a/lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs
+++ b/lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs
@@ -46,7 +46,7 @@ journalModeToText = \case
   JournalMode'OFF -> "off"
 
 trySetJournalMode :: MonadIO m => Connection -> JournalMode -> m ()
-trySetJournalMode conn mode0 = liftIO $ do
+trySetJournalMode conn mode0 = liftIO do
   queryOneRowCheck_
     conn
     (Sql ("PRAGMA journal_mode = " <> journalModeToText mode0))