0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt{- |

0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark AndrewsModule : $Header$

0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark AndrewsDescription : utilites for tracing

0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark AndrewsCopyright : (c) Christian Maeder and Uni Bremen 2002-2004

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan HuntLicense : similar to LGPL, see HetCATS/LICENSE.txt or LIZENZ.txt

ffd297db793b3efa3854f32f443b9f79e0417f2cAutomatic Updater

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan HuntMaintainer : Christian.Maeder@dfki.de

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan HuntStability : provisional

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan HuntPortability : portable

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan HuntUtilites for tracing

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt-}

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Huntmodule Common.Trace where

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Huntimport Debug.Trace

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Huntstrace :: Show a => String -> a -> a

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Huntstrace s x = trace (s++": "++show x) x

75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt