pSetting :: Parser (MGProfile -> MGProfile)
pSetting = choice
    [ pStringSetting "char" >>= \x -> return $ \p -> p { profChar = Just x }
    , pStringSetting "password" >>= \x -> return $ \p -> p { profPassword = Just x }
    , pStringSetting "logfile" >>= \x -> return $ \p -> p { profLogfile = Just x }
    , pStringSetting "map" >>= \x -> return $ \p -> p { profMap = Just x }
    ]
pSetting :: Parser (MGProfile -> MGProfile)
pSetting = choice
    [ pStringSetting "char" >>= \x -> return $ \p -> p { profChar = Just x }
    , pStringSetting "password" >>= \x -> return $ \p -> p { profPassword = Just x }
    , pStringSetting "logfile" >>= \x -> return $ \p -> p { profLogfile = Just x }
    , pStringSetting "map" >>= \x -> return $ \p -> p { profMap = Just x }
    ]
pSetting = choice
    [ pStringSetting "char" >>= \x -> return $ \p -> p { profChar = Just x }
    , pStringSetting "password" >>= \x -> return $ \p -> p { profPassword = Just x }
    , pStringSetting "logfile" >>= \x -> return $ \p -> p { profLogfile = Just x }
    , pStringSetting "map" >>= \x -> return $ \p -> p { profMap = Just x }
    ]