dev: ui: fix an unclear windows-conditional import

This commit is contained in:
Simon Michael 2022-09-10 12:39:32 -10:00
parent 5c14ed2ec9
commit 96f42380e8

View File

@ -59,15 +59,16 @@ import Hledger
import Hledger.Cli.DocFiles
import Hledger.UI.UITypes
import Data.Vector (Vector)
-- | On posix platforms, send the system STOP signal to suspend the
-- current program. On windows, does nothing.
-- (Though, currently hledger-ui is not built on windows.)
#ifdef mingw32_HOST_OS
suspendSignal :: IO ()
suspendSignal = return ()
#else
import System.Posix.Signals
import Data.Vector (Vector)
suspendSignal :: IO ()
suspendSignal = raiseSignal sigSTOP
#endif