compiler-hs: don't decapitalize field names, do decapitalize argument bindings

sh run-test.sh NameConflictTest
Running test...

../../lib/hs/src/Thrift/Types.hs:27:10: Warning:
    Orphan instance:
      instance (Hashable k, Hashable v) => Hashable (Map.HashMap k v)

../../lib/hs/src/Thrift/Types.hs:30:10: Warning:
    Orphan instance: instance Hashable a => Hashable (Set.HashSet a)

../../lib/hs/src/Thrift/Types.hs:33:10: Warning:
    Orphan instance: instance Hashable a => Hashable (Vector.Vector a)

../../test/hs/NameConflictTest_Main.hs:5:1: Warning:
    The import of ‘NameConflictTest_Consts’ is redundant
      except perhaps to import instances from ‘NameConflictTest_Consts’
    To import instances alone, use: import NameConflictTest_Consts()

../../test/hs/NameConflictTest_Main.hs:7:1: Warning:
    The import of ‘Qualified’ is redundant
      except perhaps to import instances from ‘Qualified’
    To import instances alone, use: import Qualified()

...

Values:
[JUST,TRUE,FALSE]
[LEFT,RIGHT]
Problem_ {f_Problem__problem = Just True, f_Problem__Problem = Just False}