Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Adding Typeable to Models.

  • Loading branch information...
commit b4ad75a13ccbd7cc7034f495d2a0cf3c0261b108 1 parent 6b661f4
Alson Kemp authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Turbinado/Database/ORM/Output.hs
2  Turbinado/Database/ORM/Output.hs
View
@@ -56,7 +56,7 @@ generateType t typeName pk ts cs =
[ "data " ++ typeName ++ " = " ++ typeName ++ " {"
] ++
[intercalate ",\n" (map columnToFieldLabel (M.toList cs))] ++
- [ " } deriving (Eq, Show)"
+ [ " } deriving (Eq, Show, Typeable)"
, ""
, "instance DatabaseModel " ++ typeName ++ " where"
, " tableName _ = \"" ++ t ++ "\""
Please sign in to comment.
Something went wrong with that request. Please try again.