[Change OTP to add otpCheckGeneral where a function can be applied to each key in the DB before comparison jupdike@gmail.com**20080126202125] { hunk ./index.hs 44 +{- let s = dlookup "" "HTTP_COOKIE" environ -} hunk ./index.hs 47 - Nothing -> False - Just cookieStr -> - getKey "LoggedIn" cookieStr == getsecretcode environ -- something here is wrong? this is bad + Nothing -> False + Just cookieStr -> + getKey "LoggedIn" cookieStr == getsecretcode environ -- something here is wrong? this is bad }