diff options
Diffstat (limited to 'GitAnnex.hs')
-rw-r--r-- | GitAnnex.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs index b73cd9416..d6de50d03 100644 --- a/GitAnnex.hs +++ b/GitAnnex.hs @@ -5,7 +5,7 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE CPP #-} +{-# LANGUAGE CPP, OverloadedStrings #-} module GitAnnex where @@ -87,6 +87,9 @@ import qualified Command.XMPPGit import qualified Command.Test import qualified Command.FuzzTest #endif +#ifdef WITH_EKG +import System.Remote.Monitoring +#endif cmds :: [Command] cmds = concat @@ -169,4 +172,8 @@ header :: String header = "git-annex command [option ...]" run :: [String] -> IO () -run args = dispatch True args cmds options [] header Git.CurrentRepo.get +run args = do +#ifdef WITH_EKG + _ <- forkServer "localhost" 4242 +#endif + dispatch True args cmds options [] header Git.CurrentRepo.get |