fix build on old ghc

getStdRandom used to be an IO action
datalad · Jul 2, 2024 · 2f2cc38 · 2f2cc38
1 parent a65068f
commit 2f2cc38
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Annex/Cluster.hs b/Annex/Cluster.hs
@@ -160,7 +160,7 @@ clusterProxySelector clusteruuid protocolversion (Bypass bypass) = do
 				let lowestcost = Remote.cost (remote node)
 				    samecost = node : takeWhile (\n -> Remote.cost (remote n) == lowestcost) rest
 				in do
-					n <- getStdRandom $
+					n <- liftIO $ getStdRandom $
 						randomR (0, length samecost - 1)
 					return (Just (samecost !! n))