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

avoid compiler warning

Browse source 
add type sig so it's clear createtfile returns unit
This commit is contained in:
Joey Hess 2018-03-15 13:20:38 -04:00
parent e242fde6d2
commit ed81762c86
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Annex/Perms.hs
View file

@ -6,6 +6,7 @@
-} -}
module Annex.Perms ( module Annex.Perms (
FileMode,
setAnnexFilePerm, setAnnexFilePerm,
setAnnexDirPerm, setAnnexDirPerm,
annexFileMode, annexFileMode,

1
Annex/Transfer.hs
View file

@ -88,6 +88,7 @@ runTransfer' ignorelock t afile shouldretry transferaction = checkSecureHashes t
else recordFailedTransfer t info else recordFailedTransfer t info
return v return v
where where
prep :: FilePath -> Annex () -> FileMode -> Annex (Maybe LockHandle, Bool)
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
prep tfile createtfile mode = catchPermissionDenied (const prepfailed) $ do prep tfile createtfile mode = catchPermissionDenied (const prepfailed) $ do
let lck = transferLockFile tfile let lck = transferLockFile tfile

1
Command/Unlock.hs
View file

@ -15,7 +15,6 @@ import Annex.Version
import Annex.Link import Annex.Link
import Annex.ReplaceFile import Annex.ReplaceFile
import Utility.CopyFile import Utility.CopyFile
import Utility.FileMode
import Git.FilePath import Git.FilePath
import qualified Database.Keys import qualified Database.Keys