import Data.Typeable getStaticType :: Typeable a => a -> StringgetStaticType = show . typeOf main = do putStr(getStaticType(x)) where x = 42 deriving Typeable
Standard input is empty
[1 of 1] Compiling Main ( prog.hs, prog.o ) prog.hs:9:12: parse error on input `deriving'
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!