Work on tweak datatypes

src/Dodge/Render/HUD.hs

@@ -76,7 +76,7 @@ topInvCursor col iPos cfig w
 
 ammoTweakStrings :: Item -> [String]
 ammoTweakStrings it = case it ^? itParams . tweakParams of
-    Just l -> map pjTweakString l
+    Just l -> map pjTweakString $ IM.elems l
     _ -> ["NOT TWEAKABLE"]
 
 mCurs :: Item -> Configuration -> World -> Picture
@@ -94,7 +94,7 @@ mCurs it cfig w = case it ^? itParams . tweakSel of
     y = 155
 
 pjTweakString :: TweakParam -> String
-pjTweakString pj = _pjDisplayParam pj $ _curTweak pj
+pjTweakString pj = _showTweak pj $ _curTweak pj
 
 displayMidList :: Configuration -> [String] -> String -> Picture
 displayMidList cfig strs s = invHead cfig s