use Utility.PID

fixes build on i386ancient
This commit is contained in:
Joey Hess 2024-08-30 14:56:38 -04:00
parent 3b74386ed4
commit 35ff8c8c00
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 5 additions and 5 deletions

View file

@ -11,12 +11,12 @@ module Types.RepoSize where
import Types.UUID
import Types.Key
import Utility.PID
import Control.Concurrent
import Database.Persist.Sql hiding (Key)
import Data.Unique
import Text.Read
import System.Process (Pid)
import qualified Data.Text as T
import qualified Data.Set as S
@ -75,7 +75,7 @@ newtype SizeChangeUniqueId = SizeChangeUniqueId Int
newtype SizeChangeProcessId = SizeChangeProcessId Integer
deriving (Show, Eq, Ord)
mkSizeChangeId :: Pid -> IO SizeChangeId
mkSizeChangeId :: PID -> IO SizeChangeId
mkSizeChangeId pid = do
u <- newUnique
return $ SizeChangeId