From de62ee01d2246a19299cafaca96afec207bdc15f Mon Sep 17 00:00:00 2001
From: Chris Penner <christopher.penner@gmail.com>
Date: Thu, 2 Jun 2022 15:10:09 -0600
Subject: [PATCH] Update lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs

Co-authored-by: Mitchell Rosen <mitchellwrosen@gmail.com>
---
 lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs b/lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs
index 7c4afdcf5cf..67537eff6eb 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))