change behaviour of auto-deriver

This commit is contained in:
Hideyuki Tanaka
2011-11-17 17:40:10 +09:00
parent 79b51a6e4b
commit 7869e96bac
3 changed files with 26 additions and 13 deletions

View File

@@ -11,7 +11,7 @@ deriveObject ''T
data U
= C { c1 :: Int, c2 :: String }
| D { d1 :: Double }
| D { z1 :: Double }
deriving (Show, Eq)
deriveObject ''U