From 4e4734f5a3e8af4270ae5f7c75a7a50490737838 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 29 Apr 2008 09:22:57 +0000 Subject: [PATCH] remove the obsolete putCPU, putPoint and putPoint' functions --- src/GF/Devel/UseIO.hs | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/src/GF/Devel/UseIO.hs b/src/GF/Devel/UseIO.hs index 39b8447f7..8ffe06605 100644 --- a/src/GF/Devel/UseIO.hs +++ b/src/GF/Devel/UseIO.hs @@ -16,7 +16,6 @@ module GF.Devel.UseIO where import GF.Data.Operations -import GF.Devel.Arch (prCPU) import GF.Infra.Option import GF.Today (libdir) @@ -60,27 +59,6 @@ errOptIO os e m = case m of putIfVerb os k return e -prOptCPU :: Options -> Integer -> IO Integer -prOptCPU opts = if (oElem noCPU opts) then (const (return 0)) else prCPU - -putCPU :: IO () -putCPU = do - prCPU 0 - return () - -putPoint :: Show a => Options -> String -> IO a -> IO a -putPoint = putPoint' id - -putPoint' :: Show a => (c -> a) -> Options -> String -> IO c -> IO c -putPoint' f opts msg act = do - let sil x = if oElem beSilent opts then return () else x - ve x = if oElem beVerbose opts then x else return () - ve $ putStrLn msg - a <- act - ve $ putShow' f a - ve $ putCPU - return a - readFileIf f = catch (readFile f) (\_ -> reportOn f) where reportOn f = do putStrLnFlush ("File " ++ f ++ " does not exist. Returned empty string")