From 95704212510b525bf4fb3c76fc37043da26cb825 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 10 Nov 2011 02:59:13 -0400 Subject: [PATCH] better message when content is locked --- Annex/Content.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Annex/Content.hs b/Annex/Content.hs index b111bfabc6..f50616af93 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -23,6 +23,7 @@ module Annex.Content ( saveState ) where +import System.IO.Error (try) import Control.Exception (bracket_) import System.Posix.Types @@ -74,8 +75,10 @@ lockContent key a = do where lock Nothing = return Nothing lock (Just l) = do - setLock l (WriteLock, AbsoluteSeek, 0, 0) - return $ Just l + v <- try $ setLock l (WriteLock, AbsoluteSeek, 0, 0) + case v of + Left _ -> error "content is locked" + Right _ -> return $ Just l unlock Nothing = return () unlock (Just l) = closeFd l