initializeP2PPicks :: FilePath -> Config -> IO P2PPicks
initializeP2PPicks snapletFilePath config = do
    guardian <- (snapletFilePath </>) <$> lookupDefault defaultGuardian config "p2ppicks.guardian"

    profitMaxLicense <- (snapletFilePath </>) <$> lookupDefault defaultProfitMaxLicense config "p2ppicks.profitMaxLicense"
    lossMinLicense <- (snapletFilePath </>) <$> lookupDefault defaultLossMinLicense config "p2ppicks.profitMaxLicense"

    paramM <- lookupDefault defaultParamM config "p2ppicks.paramM"
    paramB <- lookupDefault defaultParamB config "p2ppicks.paramB"

    return P2PPicks {..}
  where
    defaultGuardian = "guardian_linux"
    defaultProfitMaxLicense = "PT_Prosper_PMax_hex"
    defaultLossMinLicense = "PT_Prosper_LMin_hex"

    defaultParamM = "0"
    defaultParamB = "0"
initializeP2PPicks :: FilePath -> Config -> IO P2PPicks
initializeP2PPicks snapletFilePath config = do
    guardian <- (snapletFilePath </>) <$> lookupDefault defaultGuardian config "p2ppicks.guardian"

    profitMaxLicense <- (snapletFilePath </>) <$> lookupDefault defaultProfitMaxLicense config "p2ppicks.profitMaxLicense"
    lossMinLicense <- (snapletFilePath </>) <$> lookupDefault defaultLossMinLicense config "p2ppicks.profitMaxLicense"

    paramM <- lookupDefault defaultParamM config "p2ppicks.paramM"
    paramB <- lookupDefault defaultParamB config "p2ppicks.paramB"

    return P2PPicks {..}
  where
    defaultGuardian = "guardian_linux"
    defaultProfitMaxLicense = "PT_Prosper_PMax_hex"
    defaultLossMinLicense = "PT_Prosper_LMin_hex"

    defaultParamM = "0"
    defaultParamB = "0"
initializeP2PPicks snapletFilePath config = do
    guardian <- (snapletFilePath </>) <$> lookupDefault defaultGuardian config "p2ppicks.guardian"

    profitMaxLicense <- (snapletFilePath </>) <$> lookupDefault defaultProfitMaxLicense config "p2ppicks.profitMaxLicense"
    lossMinLicense <- (snapletFilePath </>) <$> lookupDefault defaultLossMinLicense config "p2ppicks.profitMaxLicense"

    paramM <- lookupDefault defaultParamM config "p2ppicks.paramM"
    paramB <- lookupDefault defaultParamB config "p2ppicks.paramB"

    return P2PPicks {..}
  where
    defaultGuardian = "guardian_linux"
    defaultProfitMaxLicense = "PT_Prosper_PMax_hex"
    defaultLossMinLicense = "PT_Prosper_LMin_hex"

    defaultParamM = "0"
    defaultParamB = "0"