Add pattern by hand

restaumatic · Sep 5, 2023 · 6050c5c · 6050c5c
1 parent 60bf482
commit 6050c5c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Language/PureScript/Constants/Libs.hs b/src/Language/PureScript/Constants/Libs.hs
@@ -9,6 +9,7 @@ import Protolude qualified as P
 import Data.String (IsString)
 import Language.PureScript.Constants.TH qualified as TH
 import Language.PureScript.PSString (PSString)
+import Language.PureScript.Names (Ident (..), Qualified (..), QualifiedBy (..))
 
 -- Core lib values
 
@@ -273,3 +274,6 @@ $(TH.declare do
       TH.var "hasFieldRecord"
 
   )
+
+pattern IsSymbolDict :: Qualified Ident
+pattern IsSymbolDict = Qualified (ByModuleName M_Data_Symbol) (Ident "IsSymbol$Dict")
diff --git a/src/Language/PureScript/CoreFn/Optimizer.hs b/src/Language/PureScript/CoreFn/Optimizer.hs
@@ -39,7 +39,7 @@ optimizeRecordGetField
           (App _
             (Var _ C.I_hasFieldRecord)
             (App _
-              (Var _ C.I_IsSymbol)
+              (Var _ C.IsSymbolDict)
               (Literal _ (ObjectLiteral
                 [ ("reflectSymbol", Abs _ _
                     (Literal _ (StringLiteral label)))