ngws/mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Format wrapped strings more intuitively

Browse Source
This commit is contained in:
Niels G. W. Serup
2024-10-05 23:47:10 +02:00
parent 152f988363
commit eb7848064a
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
byg/src/Types/Values.hs
View File

@@ -15,7 +15,10 @@ import qualified Codec.Picture as CP
import Language.Haskell.TH.Syntax (Lift(..)) import Language.Haskell.TH.Syntax (Lift(..))
newtype String = StringWrapper Prelude.String newtype String = StringWrapper Prelude.String
deriving (Eq, Show, Lift) deriving (Eq, Lift)
instance Show String where
show (StringWrapper s) = show s
type FilePath = String type FilePath = String