khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-01 13:52:12 +03:00
Code Issues Projects Releases Wiki Activity

Add dummy show instance of NameConfig.

Browse Source
This commit is contained in:
Kei Hibino 2016-01-18 09:43:06 +09:00
parent 9e7c8a0e63
commit 81bd14dd0b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
persistable-record/src/Database/Record/TH.hs
View File

@ -107,6 +107,10 @@ data NameConfig =
-- ^ Make column variable symbol name from table name and column name in SQL
}
-- | Dummy show instance. Handy to define show instance recursively.
instance Show NameConfig where
show = const "<nameConfig>"
-- | Default implementation of 'RecordConfig' type
defaultNameConfig :: NameConfig
defaultNameConfig =