This commit is contained in:
Joey Hess 2013-12-11 00:18:58 -04:00
parent 011b8bc7ec
commit f931272681

View file

@ -359,7 +359,7 @@ readTransferInfo :: Maybe PID -> String -> Maybe TransferInfo
readTransferInfo mpid s = TransferInfo readTransferInfo mpid s = TransferInfo
<$> time <$> time
#ifdef mingw32_HOST_OS #ifdef mingw32_HOST_OS
<*> pure $ if isJust mpid then mpid else mpid' <*> pure (if isJust mpid then mpid else mpid')
#else #else
<*> pure mpid <*> pure mpid
#endif #endif