mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build warning

Browse source
This commit is contained in:
Joey Hess 2018-08-28 13:17:06 -04:00
parent 759a87ad70
commit 6001b3cf45
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Smudge.hs
View file

@ -18,7 +18,7 @@ import Logs.Location
import qualified Database.Keys import qualified Database.Keys
import qualified Git.BuildVersion import qualified Git.BuildVersion
import Git.FilePath import Git.FilePath
import Git.Ref import qualified Git.Ref
import Backend import Backend
import qualified Data.ByteString.Lazy as B import qualified Data.ByteString.Lazy as B
@ -130,7 +130,7 @@ shouldAnnex file moldkey = do
where where
whenempty = case moldkey of whenempty = case moldkey of
Just _ -> return True Just _ -> return True
Nothing -> isNothing <$> catObjectMetaData (fileRef file) Nothing -> isNothing <$> catObjectMetaData (Git.Ref.fileRef file)
emitPointer :: Key -> IO () emitPointer :: Key -> IO ()
emitPointer = putStr . formatPointer emitPointer = putStr . formatPointer