aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-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.