diff options
| -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 |