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 _ ->
+                    Just _ | isUserPackage ->
                       error $ unlines
                         [ ""
                         , "-- WIRE3 ENCODER NOT SUPPORTED -----------------------------------------"

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 _ ->
+              Just _ | isUserPackage ->
                 error $ unlines
                   [ ""
                   , "-- WIRE3 ENCODER NOT SUPPORTED -----------------------------------------"
@@ -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 _ ->
+                Just _ | isUserPackage ->
                   error $ unlines
                     [ ""
                     , "-- WIRE3 DECODER NOT SUPPORTED -----------------------------------------"