X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FConfiguration.hs;h=4898c08978e6d71846c85c535c39c64b4642edd9;hb=10f322ce20600de109c4643967b6ce3f61f69bf6;hp=b7915073e842136724224a76851715b742209c06;hpb=6cb1920fc40d737b5a13fda62a75bf97a69c1ab6;p=dead%2Flwn-epub.git 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