From d284c94f04afc9321427e4d93480511b9452abd5 Mon Sep 17 00:00:00 2001 From: quidtum Date: Tue, 8 Dec 2020 18:26:29 -0500 Subject: adjust init nodes --- src/Lib.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Lib.hs b/src/Lib.hs index ca879f7..9dd42ec 100644 --- a/src/Lib.hs +++ b/src/Lib.hs @@ -303,9 +303,9 @@ handleDomainRead domainName (Just verseSpec@(VerseSpec lineIdens)) = do handleDomainWrite :: DomainName -> Maybe LineIden -> Maybe LineIden -> Maybe () -> Handler DomainWriteView handleDomainWrite domainName Nothing Nothing Nothing = do (src, dst) <- liftIO $ dbFn domainName - r <- liftIO $ randomRIO (0, 2) :: Handler Integer - let srcLineIden = if r <= 1 then getLineIden <$> src else Nothing - let dstLineIden = if r >= 1 then getLineIden <$> dst else Nothing + r <- liftIO $ randomRIO (0, 3) :: Handler Integer + let srcLineIden = if r <= 2 then getLineIden <$> src else Nothing + let dstLineIden = if r <= 1 || r == 3 then getLineIden <$> dst else Nothing let initFlag = if isNothing srcLineIden && isNothing dstLineIden then Just () else Nothing redirectTo $ domainWriteURI domainName srcLineIden dstLineIden initFlag where @@ -777,10 +777,10 @@ reduceSparsity g n numNewEdges arrows = do numNodesInDefault :: Int -numNodesInDefault = min 16 (length sampleLines) +numNodesInDefault = min 7 (length sampleLines) numExtraArrowsInDefault :: Int -numExtraArrowsInDefault = 10 +numExtraArrowsInDefault = 7 makeDefaultGraphSpec :: StatefulGen g m => g -> m GraphSpec makeDefaultGraphSpec g = do -- cgit v1.2.3