No title

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
haveNsGetEnviron :: Bool
nsGetEnviron :: IO (Ptr (Ptr OSString))
c_environ_p :: Ptr (Ptr OSString)

#if HAVE__NSGETENVIRON
haveNsGetEnviron = True
nsGetEnviron = nsGetEnviron'
c_environ_p = error "c_environ_p: HAVE__NSGETENVIRON"
foreign import ccall unsafe "_NSGetEnviron"
   nsGetEnviron' :: IO (Ptr (Ptr OSString))
#else
haveNsGetEnviron = False
nsGetEnviron = error "nsGetEnviron: !HAVE__NSGETENVIRON"
c_environ_p = c_environ_p'
foreign import ccall unsafe "&environ"
   c_environ_p' :: Ptr (Ptr OSString)
#endif
14:1: Warning: Use camelCase
Found:
c_environ_p = ...
Why not:
cEnvironP = ...