runHisg :: [String] -> HisgM ()
runHisg [] = do
    currentTime <- liftIO getCurrentTime
    loadFile "sekopaat.log"
    processFiles currentTime layout -- TEST LOG, REPLACE WITH USAGE
runHisg :: [String] -> HisgM ()
runHisg [] = do
    currentTime <- liftIO getCurrentTime
    loadFile "sekopaat.log"
    processFiles currentTime layout -- TEST LOG, REPLACE WITH USAGE
runHisg [] = do
    currentTime <- liftIO getCurrentTime
    loadFile "sekopaat.log"
    processFiles currentTime layout -- TEST LOG, REPLACE WITH USAGE