Format wrapped strings more intuitively

2024-10-05 23:47:10 +02:00
parent 152f988363
commit eb7848064a
1 changed files with 4 additions and 1 deletions
--- 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