Fixing bug where ridges cost half as much as they should.

src/server/farm.scm

@@ -343,9 +343,8 @@
       ))
 
 (define (buy-crop crop unnormalized-crop amount cash-value player game)
-  ;; TODO bug when buying ridge, the full amount isn't accounted for
+  (let ((total-cost (* amount (alist-ref unnormalized-crop
-  ;; because 'crop' is 'cows' not 'ridge-cows' or the ridge
+                                         '((hay . 2000) (grain . 2000)
-  (let ((total-cost (* amount (alist-ref crop '((hay . 2000) (grain . 2000)
                                            (fruit . 5000) (cows . 500)
                                            (ridge-cows . 1000)
                                            (tractor . 10000)