X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FConfiguration.hs;fp=src%2FConfiguration.hs;h=4898c08978e6d71846c85c535c39c64b4642edd9;hp=b7915073e842136724224a76851715b742209c06;hb=4220827f62d772d7edcbdcc1c2f13d6c2eb5f534;hpb=f3321e2ce7d7645ad562dc8f6620bfd561edc75d diff --git a/src/Configuration.hs b/src/Configuration.hs index b791507..4898c08 100644 --- a/src/Configuration.hs +++ b/src/Configuration.hs @@ -107,7 +107,7 @@ parse_config = do Right cp -> let cp_username = get cp "DEFAULT" "username" cp_password = get cp "DEFAULT" "password" - + cfg_username = either_to_maybe cp_username cfg_password = either_to_maybe cp_password in