From bf436aebaa5b84bbb50e305e8f7dc9ca4ae34299 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Thu, 24 Feb 2005 10:46:37 +0000
Subject: "Committed_by_peb"

---
 src/GF/System/Arch.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/GF/System')

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)
-- 
cgit v1.2.3