avoid some build warnings on windows

This commit is contained in:
Joey Hess 2019-09-12 14:11:19 -04:00
parent 42bdaaa5d7
commit 53fd746705
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 15 additions and 5 deletions

View file

@ -41,7 +41,11 @@ seek = withWords (commandAction . start)
-- This runs as root, so avoid making any commits or initializing
-- git-annex, or doing other things that create root-owned files.
start :: [String] -> CommandStart
#ifndef mingw32_HOST_OS
start os = do
#else
start _os = do
#endif
uuid <- getUUID
when (uuid == NoUUID) $
giveup "This can only be run in a git-annex repository."