guarding head.

kazu-yamamoto · Mar 11, 2011 · b9b8065 · b9b8065
1 parent e0ec2e7
commit b9b8065
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/PkgDB.hs b/PkgDB.hs
@@ -62,7 +62,9 @@ toPkgList prd db = filter prd $ allPackages db
 userPkgs :: IO (PkgInfo -> Bool)
 userPkgs = do
     userDirPref <- getAppUserDataDirectory ""
-    return $ \pkgi -> userDirPref `isPrefixOf` (head $ libraryDirs pkgi)
+    return $ \pkgi -> case libraryDirs pkgi of
+        []   -> True -- FIXME
+        x:xs -> userDirPref `isPrefixOf` x
 
 allPkgs :: IO (PkgInfo -> Bool)
 allPkgs = return (const True)