     BeepType(..),
     flMessage,
     flAlert,
+    flChoice,
     flInput,
     flPassword
   )

  r <- flInput' msgC defaultC
  cStringToMaybeText r

{# fun flc_password as flPassword' { `CString' } -> `CString' #}
flPassword :: T.Text -> IO (Maybe T.Text)
flPassword msg = do

import C2HS hiding (cFromEnum, cToBool,cToEnum)

import qualified Data.Text as T
import Data.Maybe (fromMaybe, maybe)
import Graphics.UI.FLTK.LowLevel.Utils

#c
