more OsPath conversion (639/749)

Sponsored-by: k0ld

Git/Quote.hs

@@ -7,6 +7,7 @@
  -}
 
 {-# LANGUAGE OverloadedStrings, TypeSynonymInstances #-}
+{-# LANGUAGE CPP #-}
 
 module Git.Quote (
 	unquote,
@@ -71,6 +72,12 @@ instance Quoteable RawFilePath where
 
 	noquote = id
 
+#ifdef WITH_OSPATH
+instance Quoteable OsPath where
+	quote qp f = quote qp (fromOsPath f :: RawFilePath)
+	noquote = fromOsPath
+#endif
+
 -- Allows building up a string that contains paths, which will get quoted.
 -- With OverloadedStrings, strings are passed through without quoting.
 -- Eg: QuotedPath f <> ": not found"