finished hlinting

1 files changed, 2 insertions, 2 deletions

diff --git a/Command/Add.hs b/Command/Add.hs
index 586807b53..cf32a8d64 100644
--- a/Command/Add.hs
+++ b/Command/Add.hs
@@ -28,7 +28,7 @@ seek = [withFilesNotInGit start, withFilesUnlocked start]
 start :: SubCmdStartBackendFile
 start pair@(file, _) = notAnnexed file $ do
 	s <- liftIO $ getSymbolicLinkStatus file
-	if ((isSymbolicLink s) || (not $ isRegularFile s))
+	if (isSymbolicLink s) || (not $ isRegularFile s)
 		then return Nothing
 		else do
 			showStart "add" file
@@ -37,7 +37,7 @@ start pair@(file, _) = notAnnexed file $ do
 perform :: (FilePath, Maybe Backend) -> SubCmdPerform
 perform (file, backend) = do
 	stored <- Backend.storeFileKey file backend
-	case (stored) of
+	case stored of
 		Nothing -> return Nothing
 		Just (key, _) -> return $ Just $ cleanup file key