diff --git a/udon-shell/UdonShell/Pad.hs b/udon-shell/UdonShell/Pad.hs
index aecbdf3..0cbb641 100644
--- a/udon-shell/UdonShell/Pad.hs
+++ b/udon-shell/UdonShell/Pad.hs
@@ -9,13 +9,10 @@ import qualified Udon.DescCombinators as D
 import qualified Data.Map as Map
 
 newtype Pad = Pad { unPad :: Map.Map String DynRef }
-    deriving (Typeable)
+    deriving (Typeable, Data)
 
 conj f = Pad . f . unPad
 
-instance Data Pad where
-    desc = D.wrap (Pad . Map.fromDistinctAscList, Map.toList . unPad) desc
-
 insert :: String -> DynRef -> Pad -> Pad
 insert str ref = conj (Map.insert str ref)