diff options
-rw-r--r-- | src/Utils/ScoresFile.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Utils/ScoresFile.hs b/src/Utils/ScoresFile.hs index 2f496bf..936a5dc 100644 --- a/src/Utils/ScoresFile.hs +++ b/src/Utils/ScoresFile.hs @@ -21,6 +21,8 @@ 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 |