work toward adding new repos on removable drives

This actually does add a new repo, but it doesn't yet set up
remotes, or sync to it.

Utility/Mounts.hsc

@@ -28,7 +28,7 @@ import Prelude hiding (catch)
  - fields available everywhere. -}
 data Mntent = Mntent
 	{ mnt_fsname :: String
-	, mnt_dir :: String
+	, mnt_dir :: FilePath
 	, mnt_type :: String
 	} deriving (Read, Show, Eq, Ord)