From 142777bec6952ff80be57710255be028cc97a0f2 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 21 Mar 2015 22:12:48 +0900 Subject: sariulccron takes directory to work in as command line argument --- src/sariulccron.hs | 3 +++ 1 file changed, 3 insertions(+) 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 -- cgit v1.2.3