[shorten directory names properly
John Meacham <john@repetae.net>**20060303040232] hunk ./Ho/Build.hs 76
-    return $ fromJust $ getPrefix cd x `mplus` f pwd `mplus` liftM ("~/" ++) (f h) `mplus` return x
+    return $ fromJust $ f (return cd) `mplus` f pwd `mplus` liftM ("~/" ++) (f h) `mplus` return x