diff options
| author | peb <unknown> | 2005-02-24 10:46:37 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-24 10:46:37 +0000 |
| commit | bf436aebaa5b84bbb50e305e8f7dc9ca4ae34299 (patch) | |
| tree | 346ac1e13a90d7b2c992c69f45b3e19c22f4bfe2 /src/GF/System | |
| parent | 0137dd5511a83ea4672619ad3dc22fe7c51ab4bf (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/System')
| -rw-r--r-- | src/GF/System/Arch.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/System/Arch.hs b/src/GF/System/Arch.hs index d18b12332..df3f171aa 100644 --- a/src/GF/System/Arch.hs +++ b/src/GF/System/Arch.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/02/18 19:21:10 $ +-- > CVS $Date: 2005/02/24 11:46:34 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.5 $ +-- > CVS $Revision: 1.6 $ -- -- architecture\/compiler dependent definitions for unix\/hbc ----------------------------------------------------------------------------- @@ -35,11 +35,13 @@ myStdGen int0 = do let int = int0 + ctSec cal + fromInteger (div (ctPicosec cal) 10000000) return $ mkStdGen int +prCPU :: Integer -> IO Integer prCPU cpu = do cpu' <- getCPUTime putStrLn (show ((cpu' - cpu) `div` 1000000000) ++ " msec") return cpu' +welcomeArch :: String welcomeArch = "This is the system compiled with ghc." fetchCommand :: String -> IO (String) |