Skip to content

Instantly share code, notes, and snippets.

@khibino

khibino/name-config.hs

Created March 19, 2018 03:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save khibino/53bece35a8d9bbb226a54b17aeeb6d7f to your computer and use it in GitHub Desktop.
Save khibino/53bece35a8d9bbb226a54b17aeeb6d7f to your computer and use it in GitHub Desktop.
Download ZIP
Name configuration example of Haskell Relational Record
Raw
name-config.hs
import Language.Haskell.TH (nameBase)
import Language.Haskell.TH.Name.CamelCase (varCamelcaseName, varName)
import Database.Record.TH
customConfig :: NameConfig
customConfig =
defaultNameConfig
{ columnName = \tbl col -> varCamelcaseName $ tbl ++ "_" ++ col }
main :: IO ()
main =
putStrLn . nameBase . varName
$ columnName customConfig "table_foo" "column_bar"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment