Make OsString Lift instance compatible with GHC-8.10

haskell · Jun 24, 2024 · 802265c · 802265c
1 parent 7d4a574
commit 802265c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/System/OsString/Internal/Types.hs b/System/OsString/Internal/Types.hs
@@ -197,9 +197,11 @@ instance Semigroup OsString where
 instance Lift OsString where
   lift xs = case coercionToPlatformTypes of
     Left (_, co) ->
-      [| OsString (WindowsString (BS.pack $(lift $ BS.unpack $ coerce $ coerceWith co xs))) :: OsString |]
+      let x = lift $ unWS $ coerceWith co xs
+      in TH.AppE (TH.ConE (TH.mkName "OsString")) <$> x
     Right (_, co) ->
-      [| OsString (PosixString (BS.pack $(lift $ BS.unpack $ coerce $ coerceWith co xs))) :: OsString |]
+      let x = lift $ unPS $ coerceWith co xs
+      in TH.AppE (TH.ConE (TH.mkName "OsString")) <$> x
 #if MIN_VERSION_template_haskell(2,17,0)
   liftTyped = TH.unsafeCodeCoerce . TH.lift
 #elif MIN_VERSION_template_haskell(2,16,0)