Format wrapped strings more intuitively

This commit is contained in:
Niels G. W. Serup 2024-10-05 23:47:10 +02:00
parent 152f988363
commit eb7848064a
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 4 additions and 1 deletions

View File

@ -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