23 lines
951 B
Haskell
23 lines
951 B
Haskell
$NetBSD: patch-src_Language_PureScript_Names.hs,v 1.1 2022/02/23 16:19:45 pho Exp $
|
|
|
|
Fix build with GHC 9.2
|
|
|
|
--- src/Language/PureScript/Names.hs.orig 2022-02-20 14:42:44.276703645 +0000
|
|
+++ src/Language/PureScript/Names.hs
|
|
@@ -237,9 +237,6 @@ isQualifiedWith :: ModuleName -> Qualifi
|
|
isQualifiedWith mn (Qualified (Just mn') _) = mn == mn'
|
|
isQualifiedWith _ _ = False
|
|
|
|
-$(deriveJSON (defaultOptions { sumEncoding = ObjectWithSingleField }) ''Qualified)
|
|
-$(deriveJSON (defaultOptions { sumEncoding = ObjectWithSingleField }) ''Ident)
|
|
-
|
|
instance ToJSON ModuleName where
|
|
toJSON (ModuleName name) = toJSON (T.splitOn "." name)
|
|
|
|
@@ -253,3 +250,6 @@ instance ToJSONKey ModuleName where
|
|
|
|
instance FromJSONKey ModuleName where
|
|
fromJSONKey = fmap moduleNameFromString fromJSONKey
|
|
+
|
|
+$(deriveJSON (defaultOptions { sumEncoding = ObjectWithSingleField }) ''Qualified)
|
|
+$(deriveJSON (defaultOptions { sumEncoding = ObjectWithSingleField }) ''Ident)
|