Allow enabling the servant build flag with older versions of stm
Allowing building with ghc 9.0.2 (debian stable).
This commit is contained in:
parent
c738920d19
commit
3a53c60121
3 changed files with 8 additions and 2 deletions
|
@ -533,6 +533,11 @@ clientKeepLocked lckid remoteuuid unablelock callback clientenv (ProtocolVersion
|
|||
_ :<|> _ :<|> _ :<|>
|
||||
_ :<|> _ :<|> _ :<|> _ :<|>
|
||||
v3 :<|> v2 :<|> v1 :<|> v0 :<|> _ = client p2pHttpAPI
|
||||
|
||||
#if ! MIN_VERSION_stm(2,5,1)
|
||||
writeTMVar t new = tryTakeTMVar t >> putTMVar t new
|
||||
#endif
|
||||
|
||||
#else
|
||||
clientKeepLocked _ _ _ _ = ()
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue