getting files via http working!

This commit is contained in:
Joey Hess 2010-10-12 17:26:34 -04:00
parent cad916d926
commit a36c39ad0a
3 changed files with 18 additions and 5 deletions

View file

@ -102,7 +102,7 @@ lookupKey state backend file = do
k <- readFile (backendFile state backend file)
return $ chomp k
where
chomp s = if (endswith s "\n")
chomp s = if (endswith "\n" s)
then (reverse . (drop 1) . reverse) s
else s