diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-22 03:38:23 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-22 03:38:23 +0000 |
commit | 1549dd23727e5e49dd0fdf2b5966b9cee300c2ba (patch) | |
tree | 8c447022569540bcc160bd4f4c4851150ecea222 | |
parent | 3b39ec8b1f8695f88fcf499d33d136aa14f15340 (diff) | |
download | sariulclocks-1549dd23727e5e49dd0fdf2b5966b9cee300c2ba.tar.gz |
backing up achieved by cron job e-mailing current ScoresList
-rw-r--r-- | src/Utils/ScoresFile.hs | 3 |
1 files changed, 0 insertions, 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 |