diff --git a/byg/src/Types/Values.hs b/byg/src/Types/Values.hs
index 91eb148..b2a29f3 100644
--- a/byg/src/Types/Values.hs
+++ b/byg/src/Types/Values.hs
@@ -15,7 +15,10 @@ import qualified Codec.Picture as CP
 import Language.Haskell.TH.Syntax (Lift(..))
 
 newtype String = StringWrapper Prelude.String
-  deriving (Eq, Show, Lift)
+  deriving (Eq, Lift)
+
+instance Show String where
+  show (StringWrapper s) = show s
 
 type FilePath = String