1 --- yeganesh.hs 2010-09-06 15:16:37.000000000 -0400
2 +++ yeganesh.hs 2011-08-23 12:41:40.453995435 -0400
6 updatePriority :: String -> UTCTime -> UTCTime -> Commands -> Commands
7 -updatePriority cmd old new cmds = insert cmd pri cmds' where
8 +updatePriority cmd old new cmds = insert (init cmd) pri cmds' where
9 cmds' = decay old new cmds
10 pri = boost $ findWithDefault 0 cmd cmds'