too-many-cells 0.2.2.0 → 0.2.2.1

raw patch · 2 files changed

+3/−4 lines, 2 files

Files

• src/TooManyCells/Diversity/Load.hs +2/−3
• too-many-cells.cabal +1/−1

@@ -82,7 +82,7 @@         return population  -- | Convert previous cluster results to a population representation.-priorToPopulation :: ClusterResults -> Either String Population+priorToPopulation :: [(CellInfo, [Cluster])] -> Either String Population priorToPopulation =     fmap (Population . Map.fromListWith (Seq.><))         . mapM (\(!x, !y) -> do@@ -94,7 +94,6 @@                         $ y                     return (y', x')                )-        . _clusterList  -- | Convert a Population to a custom population with a label map. popToLabelPop :: LabelMap -> Population -> Either String Population@@ -127,7 +126,7 @@             pop <- ExceptT . loadPopulationCsv . PriorPath $ path             return pop         otherwise      -> runExceptT $ do-            let crInput = path FP.</> "cluster_results.json"+            let crInput = path FP.</> "cluster_list.json"              pop <- ExceptT                  . fmap ((=<<) priorToPopulation . A.eitherDecode)

@@ -1,6 +1,6 @@ cabal-version: >=1.10 name: too-many-cells-version: 0.2.2.0+version: 0.2.2.1 license: GPL-3 license-file: LICENSE copyright: 2019 Gregory W. Schwartz