Revert back to using full Def on graph legend

chrisbanks · Mar 1, 2012 · 612abf2 · 612abf2
1 parent 7689846
commit 612abf2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/CpiPlot.hs b/CpiPlot.hs
@@ -45,8 +45,8 @@ plotTimeSeriesFiltered :: LA.Vector Double -> LA.Matrix Double -> [Species] -> [
 plotTimeSeriesFiltered ts soln ss ss'
     = plot
       (LA.toList ts)
-      (filter (\(s,_)-> s `elem` (map specName ss')) 
-       (zip (map specName ss) (map LA.toList (LA.toColumns soln))))
+      (filter (\(s,_)-> s `elem` (map pretty ss')) 
+       (zip (map pretty ss) (map LA.toList (LA.toColumns soln))))
 
 plot :: [Double] -> [(String,[Double])] -> IO ()
 -- Plots the time series in a GTK window