From 95d2391f58ae240e7100f0d5488dd7246f71f3bb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 15 Dec 2011 18:11:42 -0400 Subject: more partial function removal Left a few Prelude.head's in where it was checked not null and too hard to remove, etc. --- Command/Migrate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/Migrate.hs') diff --git a/Command/Migrate.hs b/Command/Migrate.hs index 30288fc16..8778743ff 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -31,7 +31,7 @@ start b file (key, oldbackend) = do next $ perform file key newbackend else stop where - choosebackend Nothing = head <$> Backend.orderedList + choosebackend Nothing = Prelude.head <$> Backend.orderedList choosebackend (Just backend) = return backend {- Checks if a key is upgradable to a newer representation. -} -- cgit v1.2.3