make import work with Win32 instead of Win32-extras

This commit is contained in:
Joey Hess 2017-08-16 17:51:29 -04:00
parent 9d150ba60c
commit 266bf43632
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -13,8 +13,7 @@ module Utility.PID where
import System.Posix.Types (ProcessID) import System.Posix.Types (ProcessID)
import System.Posix.Process (getProcessID) import System.Posix.Process (getProcessID)
#else #else
import System.Win32.Process (ProcessId) import System.Win32.Process (ProcessId, getCurrentProcessId)
import System.Win32.Process.Current (getCurrentProcessId)
#endif #endif
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS