Show how long installtion took.

Author: augustss

Tools/Install.hs

@@ -11,13 +11,15 @@ import System.Directory
 import System.Environment
 import System.FilePath
 import System.Process
+import System.IO.TimeMilli
 import MicroHs.Config
 
 type CConf = [(Key, Value)]
 
 
 main :: IO ()
 main = do
+  start <- getTimeMilli
   args <- getArgs
   let flags = decodeArgs defaultFlags args
   confText <- macroExpand flags <$> readFile (confFile flags)
@@ -33,6 +35,11 @@ main = do
 
   install flags'
 
+  end <- getTimeMilli
+  let delta = (end - start) `quot` 100
+      (sec, tenths) = delta `quotRem` 10
+  putStrLn $ "Install time: " ++ show sec ++ "." ++ show tenths ++ "s"
+
 install :: Flags -> IO ()
 install flags = do
   instBin flags