Exclude elm/* and lamdera/* packages from custom encoder error

Only show the custom encoder/decoder error for user packages, not core
elm/* or lamdera/* packages like Bytes which have special handling.

Author: CharlonTank

extra/Lamdera/Wire3/Encoder.hs

@@ -233,9 +233,13 @@ encoderForType depth ifaces cname tipe =
                   let
                     typeNameStr = Data.Name.toChars typeName
                     customEncoderName = Data.Name.fromChars $ "encode" ++ typeNameStr
+
+                    -- Only show error for user packages, not elm/* core packages
+                    isUserPackage = case moduleName of
+                      Module.Canonical (Name author _) _ -> author /= "elm" && author /= "lamdera"
                   in
-                  case foreignTypeSig moduleName customEncoderName ifaces of
-                    Just _ ->
+                  case (foreignTypeSig moduleName customEncoderName ifaces, isUserPackage) of
+                    (Just _, True) ->
                       error $ unlines
                         [ ""
                         , "-- WIRE3 ENCODER NOT SUPPORTED -----------------------------------------"
@@ -256,7 +260,7 @@ encoderForType depth ifaces cname tipe =
                         , "3. Add compiler support (contact Lamdera team)"
                         , ""
                         ]
-                    Nothing -> (a (VarTopLevel moduleName generatedName))
+                    _ -> (a (VarTopLevel moduleName generatedName))
             else (a (VarForeign moduleName generatedName (getForeignSig tipe moduleName generatedName ifaces)))
 
       in

extra/Lamdera/Wire3/Helpers.hs

@@ -70,9 +70,13 @@ getForeignSig tipe moduleName generatedName ifaces =
               genNameStr = Data.Name.toChars generatedName
               typeNameStr = drop 10 genNameStr  -- Remove "w3_encode_" prefix (10 chars)
               customEncoderName = Data.Name.fromChars $ "encode" ++ typeNameStr
+
+              -- Only show error for user packages, not elm/* core packages
+              isUserPackage = case moduleName of
+                Module.Canonical (Name author _) _ -> author /= "elm" && author /= "lamdera"
             in
-            case foreignTypeSig moduleName customEncoderName ifaces of
-              Just _ ->
+            case (foreignTypeSig moduleName customEncoderName ifaces, isUserPackage) of
+              (Just _, True) ->
                 error $ unlines
                   [ ""
                   , "-- WIRE3 ENCODER NOT SUPPORTED -----------------------------------------"
@@ -93,7 +97,7 @@ getForeignSig tipe moduleName generatedName ifaces =
                   , "3. Add compiler support (contact Lamdera team)"
                   , ""
                   ]
-              Nothing ->
+              _ ->
                 (Forall
                    (Map.fromList [("a", ())])
                    (TLambda (TVar "a") tLamdera_Wire_Encoder))
@@ -104,9 +108,13 @@ getForeignSig tipe moduleName generatedName ifaces =
                 genNameStr = Data.Name.toChars generatedName
                 typeNameStr = drop 10 genNameStr  -- Remove "w3_decode_" prefix (10 chars)
                 customDecoderName = Data.Name.fromChars $ "decode" ++ typeNameStr
+
+                -- Only show error for user packages, not elm/* core packages
+                isUserPackage = case moduleName of
+                  Module.Canonical (Name author _) _ -> author /= "elm" && author /= "lamdera"
               in
-              case foreignTypeSig moduleName customDecoderName ifaces of
-                Just _ ->
+              case (foreignTypeSig moduleName customDecoderName ifaces, isUserPackage) of
+                (Just _, True) ->
                   error $ unlines
                     [ ""
                     , "-- WIRE3 DECODER NOT SUPPORTED -----------------------------------------"
@@ -127,7 +135,7 @@ getForeignSig tipe moduleName generatedName ifaces =
                     , "3. Add compiler support (contact Lamdera team)"
                     , ""
                     ]
-                Nothing ->
+                _ ->
                   (Forall
                      (Map.fromList [("a", ())])
                      (TAlias