diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-19 17:26:32 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-19 17:26:32 +0900 |
| commit | 6b54e36d837548bcf0fc9076bd9b6dcf5356dfe9 (patch) | |
| tree | b445503ba495f5d3761678daacea8514645172d1 /src/sariulclocks.hs | |
| parent | 65fb5b9f7c0882213b97cc1eccdd9dd36c311190 (diff) | |
| parent | 740abe29157f9afbfc1b83cf29945960dfe4fd6b (diff) | |
| download | sariulclocks-6b54e36d837548bcf0fc9076bd9b6dcf5356dfe9.tar.gz | |
Merge branch 'master' of git://github.com/spwhitton/sariulclocksv1.0.1
Diffstat (limited to 'src/sariulclocks.hs')
| -rw-r--r-- | src/sariulclocks.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 74ae00c..137e1bd 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -164,6 +164,9 @@ cgiMain = do -- TODO: use POST,REDIRECT,GET https://stackoverflow.com/questions/570015/how-do-i-reload-a-page-without-a-postdata-warning-in-javascript/570069#570069 + + -- TODO: restore time wasting clock if password was wrong + let scores' = if points' /= 0 && userPassword == (unpack . strip . pack) password then updateScore scores (fromJust cookieClass) points' timeWasted' |