aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2015-03-21 22:13:35 +0900
committerSean Whitton <spwhitton@spwhitton.name>2015-03-21 22:13:35 +0900
commit427ab285243493770c7c645fe52478ef59fff981 (patch)
tree0f3f238a60d4da701417c9f062561197d2dedbdd
parent52897fa7f92c6c956a24a73202559d6a886e6411 (diff)
downloadsariulclocks-427ab285243493770c7c645fe52478ef59fff981.tar.gz
TODO
-rw-r--r--src/sariulccron.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/sariulccron.hs b/src/sariulccron.hs
index 07cef40..d723935 100644
--- a/src/sariulccron.hs
+++ b/src/sariulccron.hs
@@ -35,6 +35,7 @@ resetTime (c, Score x _) = (c, Score x 0)
main :: IO ()
main = runSariulClocksIO $ do
+ -- TODO: error handling if no cmd line supplied!
liftIO $ liftM head getArgs >>= setCurrentDirectory
scores <- readScoresFile
-- Proceed only if we actually read some scores.