diff --git a/src/TooManyCells/Diversity/Load.hs b/src/TooManyCells/Diversity/Load.hs
--- a/src/TooManyCells/Diversity/Load.hs
+++ b/src/TooManyCells/Diversity/Load.hs
@@ -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)
diff --git a/too-many-cells.cabal b/too-many-cells.cabal
--- a/too-many-cells.cabal
+++ b/too-many-cells.cabal
@@ -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