From 1549dd23727e5e49dd0fdf2b5966b9cee300c2ba Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 22 Mar 2015 03:38:23 +0000 Subject: backing up achieved by cron job e-mailing current ScoresList --- src/Utils/ScoresFile.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Utils/ScoresFile.hs b/src/Utils/ScoresFile.hs index eac386c..f1cf806 100644 --- a/src/Utils/ScoresFile.hs +++ b/src/Utils/ScoresFile.hs @@ -23,10 +23,7 @@ scoresToCSV = unlines . foldr step [] step (theClass, (Score x y)) theLines = (show theClass ++ "," ++ show x ++ "," ++ show y) : theLines --- TODO: back these up - -- no malformed CSV handling here yet! --- this function currently doesn't work scoresFromCSV :: String -> ScoresList scoresFromCSV csv = foldr step [] (lines csv) where -- cgit v1.2.3