fork(1) download 
  1. {-# LANGUAGE StrictData #-}
  2.  
  3. import Unsafe.Coerce
  4.  
  5. data Hoge = Hoge
  6.   { foo1 :: Foo
  7.   , foo2 :: Foo
  8.   }
  9.  
  10. data Foo = Foo Int Int deriving Show
  11.  
  12. main :: IO ()
  13. main = print . foo2 $ Hoge (unsafeCoerce ()) (Foo 1 2)
  14.  
Success #stdin #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
Foo 1 2
https://ideone.com/MYims5
language:
Haskell (ghc 8.4.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!