Commit 01f1c272 authored by david Chavalarias's avatar david Chavalarias

buf fix in sea level threhold

parent 55d8b0ad
...@@ -470,7 +470,7 @@ seaLevelMatching :: Proximity -> Double -> Int -> Map Int Double -> Double -> Do ...@@ -470,7 +470,7 @@ seaLevelMatching :: Proximity -> Double -> Int -> Map Int Double -> Double -> Do
-> Int -> [PhyloPeriodId] -> Map Date Double -> Map Date Cooc -> [([PhyloGroup],Bool)] -> [([PhyloGroup],Bool)] -> Int -> [PhyloPeriodId] -> Map Date Double -> Map Date Cooc -> [([PhyloGroup],Bool)] -> [([PhyloGroup],Bool)]
seaLevelMatching proximity lambda minBranch frequency thr step depth elevation frame periods docs coocs branches = seaLevelMatching proximity lambda minBranch frequency thr step depth elevation frame periods docs coocs branches =
-- if there is no branch to break or if seaLvl level > 1 then end -- if there is no branch to break or if seaLvl level > 1 then end
if (thr >= 1) || ((not . or) $ map snd branches) if (thr > 1) || ((not . or) $ map snd branches)
then branches then branches
else else
-- break all the possible branches at the current seaLvl level -- break all the possible branches at the current seaLvl level
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment