Don't use QuasiQuotes

This extension is unused and can't be used in boot libraries

Author: wz1000

System/File/OsPath/Internal.hs

@@ -2,7 +2,6 @@
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE ViewPatterns #-}
-{-# LANGUAGE QuasiQuotes #-}
 
 module System.File.OsPath.Internal where
 

windows/System/File/Platform.hsc

@@ -1,6 +1,5 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE TypeApplications #-}
-{-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE PackageImports   #-}
 
 module System.File.Platform where
@@ -13,7 +12,7 @@ import qualified System.OsPath.Windows as WS
 import Foreign.C.Types
 
 import qualified System.OsString.Windows as WS hiding (decodeFS)
-import System.OsString.Windows ( pstr, WindowsString )
+import System.OsString.Windows ( unsafeEncodeUtf , WindowsString )
 import qualified System.Win32 as Win32
 import qualified System.Win32.WindowsString.File as WS
 import System.Win32.WindowsString.Types (withTString, peekTString)
@@ -160,7 +159,7 @@ findTempName :: (WindowsString, WindowsString)
 findTempName (prefix, suffix) loc tmp_dir mode = go
  where
   go = do
-    let label = if prefix == mempty then [pstr|ghc|] else prefix
+    let label = if prefix == mempty then unsafeEncodeUtf "ghc" else prefix
 #if MIN_VERSION_Win32(2, 14, 0)
     withFilePath tmp_dir $ \c_tmp_dir ->
 #else