add function to create User following HRR's example.
add function to create User following HRR's example.

I saw https://github.com/khibino/haskell-relational-record/blob/master/relational-record-examples/src/examples.hs .

But failed with the error again:

```haskell
cabal repl src/OfficeClimate/User.hs
...
GHCi, version 7.8.4: http://www.haskell.org/ghc/  :? for help

...

[*OfficeClimate]
> :m +Database.HDBC.Session
[*OfficeClimate Database.HDBC.Session]
> :m +OfficeClimate.User
[*OfficeClimate Database.HDBC.Session OfficeClimate.User]
> withConnectionIO'
[*OfficeClimate Database.HDBC.Session OfficeClimate.User]
> :m +OfficeClimate.Connection
[*OfficeClimate Database.HDBC.Session OfficeClimate.User
OfficeClimate.Connection]
> withConnectionIO' connect $ \c -> create c "name"
*** Exception: user error (SQL error:
  seState: '42601'
    seNativeError: 7
      seErrorMsg: 'execute: PGRES_FATAL_ERROR: ERROR:
      "name"またはその近辺で構文エラー
        LINE 1: INSERT INTO OFFICE_CLIMATE.user name VALUES $1
                                                  ^
                                                    '
                                                    )
```

igrep/office-climate