Close rpitx handle when done

inguardians · Jul 26, 2017 · 51b2211 · 51b2211
1 parent 5ca0531
commit 51b2211
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/library/VaporTrail/FileWatcher.hs b/library/VaporTrail/FileWatcher.hs
@@ -49,13 +49,15 @@ rpitxTransmit bytes = do
         , Process.std_out = Process.CreatePipe
         , Process.std_err = Process.CreatePipe
         }
-      doProc (Just hin) (Just hout) (Just herr) procHandle = do
+      doProc (Just hin) (Just hout) (Just herr) procHandle =
         Async.race_
           (Async.race_
              (IO.hGetContents hout >>= putStr)
              (IO.hGetContents herr >>= IO.hPutStr IO.stderr))
-          (withUnbuffered hin (putRaw hin toneBytes))
-        void (Process.waitForProcess procHandle)
+          (do withUnbuffered hin (putRaw hin toneBytes)
+              IO.hFlush hin
+              IO.hClose hin
+              void (Process.waitForProcess procHandle))
       doProc _ _ _ _ =
         IO.hPutStrLn
           IO.stderr