From 3ab9576b71295dc42bf8ce1fd1c4584434879300 Mon Sep 17 00:00:00 2001
From: mbays <mbays@sdf.org>
Date: Mon, 19 Jun 2023 00:00:00 +0000
Subject: [PATCH] add to queues from files after command, not after prompt

---
 diohsc.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/diohsc.hs b/diohsc.hs
index 489f50a..deb7838 100644
--- a/diohsc.hs
+++ b/diohsc.hs
@@ -315,13 +315,13 @@ lineClient cOpts@ClientOptions{ cOptUserDataDir = userDataDir
     lineClient' :: HL.InputT ClientM ()
     lineClient' = do
         cmd <- lift getPrompt >>= promptLineInputT
-        lift addToQueuesFromFiles
         quit <- case cmd of
             Nothing -> if interactive
                 then printErrOpt ansi "Use \"quit\" to quit" >> return False
                 else return True
             Just Nothing -> return True
             Just (Just line) -> handleLine' line
+        lift addToQueuesFromFiles
         unless quit lineClient'
 
     addToQueuesFromFiles :: ClientM ()
-- 
2.11.4.GIT