refactor

1 files changed, 6 insertions, 3 deletions

diff --git a/Command/Smudge.hs b/Command/Smudge.hs
index ddf81af43..70a318c2d 100644
--- a/Command/Smudge.hs
+++ b/Command/Smudge.hs
@@ -39,8 +39,8 @@ seek :: SmudgeOptions -> CommandSeek
 seek o = commandAction $
 	(if cleanOption o then clean else smudge) (smudgeFile o)
 
--- Smudge filter is fed git file content, and if it's a pointer, should
--- emit the annex object content.
+-- Smudge filter is fed git file content, and if it's a pointer to an
+-- available annex object, should output its content.
 smudge :: FilePath -> CommandStart
 smudge _file = do
 	liftIO $ fileEncoding stdin
@@ -63,10 +63,13 @@ clean file = do
 		( do
 			k <- ingest file
 			liftIO $ emitPointer k
-		, liftIO $ B.hGetContents stdin >>= B.hPut stdout -- cat file
+		, liftIO cat
 		)
 	stop
 
+cat :: IO ()
+cat = B.hGetContents stdin >>= B.hPut stdout
+
 shouldAnnex :: FilePath -> Annex Bool
 shouldAnnex file = do
 	matcher <- largeFilesMatcher