Update examples

testsuite/makewith/unsafeio/api/API.hs

@@ -0,0 +1,13 @@
+{-# OPTIONS -fglasgow-exts #-}
+
+module API where
+
+import Data.Dynamic
+
+data Unsafe = Unsafe { 
+                field :: String 
+        }
+   deriving (Typeable, Show)
+
+unsafe :: Unsafe
+unsafe = Unsafe { field = "default value" }