Show HN: Safari extension to make it more obvious a GitHub repo is private
github.com2 pointsby maxpow4h0 comments
data MetaData = MetaData {
metadataUrl :: String,
metadataTitle :: String ...
you can use import Data.Char
...
upStr n s = toLower (head (drop n s)) : (drop (n+1) s)
$(deriveJSON (upStr 8) ''MetaData)
This will splice the `metadataUrl` to use the `url` field from JSON. The deriveJSON function takes a function to change the field names.
The third problem a work around exists for: remove the default argument. If you want an empty init, provide one.
Sure it is buggy, but you can express these programs.