diff --git a/hledger-ui/Hledger/UI/UIUtils.hs b/hledger-ui/Hledger/UI/UIUtils.hs index cd558a94c..2894e4153 100644 --- a/hledger-ui/Hledger/UI/UIUtils.hs +++ b/hledger-ui/Hledger/UI/UIUtils.hs @@ -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