From eb7848064a9d733b73599bfee052f458ac841a68 Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Sat, 5 Oct 2024 23:47:10 +0200 Subject: [PATCH] Format wrapped strings more intuitively --- byg/src/Types/Values.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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