diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-19 08:23:30 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-20 04:27:12 +0000 |
| commit | e50c2f005ede9ba244a418536d7673e8d3aefa0f (patch) | |
| tree | 8d13dfdff582c590fa3a49f0a1984bc7a5a6b3e1 | |
| parent | 1f97abb85f2ea08250180f7c3fe4e1b3df100697 (diff) | |
| download | sariulclocks-e50c2f005ede9ba244a418536d7673e8d3aefa0f.tar.gz | |
comment
| -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 |