unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-05 06:07:21 +03:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
Co-authored-by: Mitchell Rosen <mitchellwrosen@gmail.com>
This commit is contained in:
Chris Penner 2022-06-02 15:10:09 -06:00 committed by GitHub
parent 548e84b31a
commit de62ee01d2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/unison-sqlite/src/Unison/Sqlite/JournalMode.hs
View File

@ -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))