more RawFilePath conversion

Added a RawFilePath createDirectory and kept making stuff build.

Up to 296/645

This commit was sponsored by Mark Reidenbach on Patreon.

Git/Repair.hs

@@ -251,9 +251,7 @@ explodePackedRefsFile r = do
 		let gitd = localGitDir r
 		let dest = gitd P.</> fromRef' ref
 		let dest' = fromRawFilePath dest
-		createDirectoryUnder
-			(fromRawFilePath gitd)
-			(fromRawFilePath (parentDir dest))
+		createDirectoryUnder gitd (parentDir dest)
 		unlessM (doesFileExist dest') $
 			writeFile dest' (fromRef sha)