slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dev: ui: fix an unclear windows-conditional import

Browse Source
This commit is contained in:
Simon Michael 2022-09-10 12:39:32 -10:00
parent 5c14ed2ec9
commit 96f42380e8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-ui/Hledger/UI/UIUtils.hs
View File

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