[simantics/platform.git] / Deriving4.scl

import "Prelude"

data Foo = Foo Integer Long Double Float

deriving instance Show Foo

main = show (Foo (-1) (-1) (-1) (-1))
--
Foo (-1) (-1) (-1.0) (-1.0)