Update lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs

Co-authored-by: Mitchell Rosen <mitchellwrosen@gmail.com>
unisonweb · Jun 2, 2022 · de62ee0 · de62ee0
1 parent 548e84b
commit de62ee0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))