diff options
Diffstat (limited to 'src/sariulccron.hs')
| -rw-r--r-- | src/sariulccron.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/sariulccron.hs b/src/sariulccron.hs index 7aad948..07cef40 100644 --- a/src/sariulccron.hs +++ b/src/sariulccron.hs @@ -8,6 +8,8 @@ import Data.Classes import Data.Function (on) import Data.List (sortBy) import Data.Maybe (fromJust) +import System.Directory (setCurrentDirectory) +import System.Environment (getArgs) import Text.PrettyPrint.Boxes import Types.Classes import Types.Scores @@ -33,6 +35,7 @@ resetTime (c, Score x _) = (c, Score x 0) main :: IO () main = runSariulClocksIO $ do + liftIO $ liftM head getArgs >>= setCurrentDirectory scores <- readScoresFile -- Proceed only if we actually read some scores. when (isJust scores) $ do |