diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-22 03:39:05 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-22 03:39:05 +0000 |
| commit | f764d43034af7c715523405cef0e608402bb7dae (patch) | |
| tree | f46f6148be0a136fc5c7a52ebc3c95358ff14e96 | |
| parent | 1549dd23727e5e49dd0fdf2b5966b9cee300c2ba (diff) | |
| download | sariulclocks-f764d43034af7c715523405cef0e608402bb7dae.tar.gz | |
TODO
| -rw-r--r-- | src/Utils/ScoresFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Utils/ScoresFile.hs b/src/Utils/ScoresFile.hs index f1cf806..73e4d34 100644 --- a/src/Utils/ScoresFile.hs +++ b/src/Utils/ScoresFile.hs @@ -23,7 +23,7 @@ scoresToCSV = unlines . foldr step [] step (theClass, (Score x y)) theLines = (show theClass ++ "," ++ show x ++ "," ++ show y) : theLines --- no malformed CSV handling here yet! +-- TODO: no malformed CSV handling here yet scoresFromCSV :: String -> ScoresList scoresFromCSV csv = foldr step [] (lines csv) where |