From 9b3b48943366e4af1a074da32c0fc27ec8f1156c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 2 Apr 2013 16:20:23 -0400
Subject: convert "./file" from inotify to just "file"

This just prettifies some display.
---
 Assistant/Threads/Watcher.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Assistant/Threads/Watcher.hs')

diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs
index b20a8d4d7..17de03dbc 100644
--- a/Assistant/Threads/Watcher.hs
+++ b/Assistant/Threads/Watcher.hs
@@ -158,7 +158,7 @@ type Handler = FilePath -> Maybe FileStatus -> Assistant (Maybe Change)
  -}
 runHandler :: Handler -> FilePath -> Maybe FileStatus -> Assistant ()
 runHandler handler file filestatus = void $ do
-	r <- tryIO <~> handler file filestatus
+	r <- tryIO <~> handler (normalize file) filestatus
 	case r of
 		Left e -> liftIO $ print e
 		Right Nothing -> noop
@@ -167,6 +167,10 @@ runHandler handler file filestatus = void $ do
 			-- flushing the queue fast enough.
 			liftAnnex $ Annex.Queue.flushWhenFull
 			recordChange change
+  where
+  	normalize f
+		| "./" `isPrefixOf` file = drop 2 f
+		| otherwise = f
 
 {- Small files are added to git as-is, while large ones go into the annex. -}
 add :: FileMatcher -> FilePath -> Assistant (Maybe Change)
-- 
cgit v1.2.3