diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
| commit | 264bd9ebe37855d4005022df057da13ec8080afb (patch) | |
| tree | f32f13646ece29c8f6336b8680cb07dd55187be5 /Build/InstallDesktopFile.hs | |
| parent | d9f5cc9f73ea046fcd2b59b5e75d4600593ac05b (diff) | |
where indenting
Diffstat (limited to 'Build/InstallDesktopFile.hs')
| -rw-r--r-- | Build/InstallDesktopFile.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Build/InstallDesktopFile.hs b/Build/InstallDesktopFile.hs index 121205687..633979155 100644 --- a/Build/InstallDesktopFile.hs +++ b/Build/InstallDesktopFile.hs @@ -46,11 +46,11 @@ autostart command = genDesktopEntry systemwideInstall :: IO Bool systemwideInstall = isroot <||> destdirset - where - isroot = do - uid <- fromIntegral <$> getRealUserID - return $ uid == (0 :: Int) - destdirset = isJust <$> catchMaybeIO (getEnv "DESTDIR") + where + isroot = do + uid <- fromIntegral <$> getRealUserID + return $ uid == (0 :: Int) + destdirset = isJust <$> catchMaybeIO (getEnv "DESTDIR") inDestDir :: FilePath -> IO FilePath inDestDir f = do @@ -91,6 +91,6 @@ install command = do main :: IO () main = getArgs >>= go - where - go [] = error "specify git-annex command" - go (command:_) = install command + where + go [] = error "specify git-annex command" + go (command:_) = install command |