1 files changed, 1 insertions, 0 deletions
diff --git a/GitAnnexShell.hs b/GitAnnexShell.hs
index ebe280279..4436ab3e1 100644
--- a/GitAnnexShell.hs
+++ b/GitAnnexShell.hs
@@ -105,6 +105,7 @@ external params = do
  -}
 partitionParams :: [String] -> ([String], [String])
 partitionParams params
+	| null segments = ([], [])
 	| length segments < 2 = (segments !! 0, [])
 	| otherwise = (segments !! 0, segments !! 1)
 	where