1 files changed, 6 insertions, 4 deletions

diff --git a/ws2015/ffp/blaetter/11/GameUnits.hs b/ws2015/ffp/blaetter/11/GameUnits.hs
index a47614e..d8853e9 100644
--- a/ws2015/ffp/blaetter/11/GameUnits.hs
+++ b/ws2015/ffp/blaetter/11/GameUnits.hs
@@ -70,7 +70,9 @@ battle att def = do
       
       
 stockUnitShortcuts :: Q [Dec] 
--- declares a constants of type Unit for each unit on the 
-stockUnitShortcuts = undefined -- !!! TODO !!!
-    
-    
\ No newline at end of file
+-- declares a constants of type Unit for each unit on the stockUnitList
+stockUnitShortcuts = sequence $ zipWith toDec ([0..] :: [Int]) stockUnitList
+  where
+    toDec n c = valD (varP (mkName . uncapitalize $ name c)) (normalB [| stockUnitList !! $n' |]) []
+      where
+        n' = litE . integerL $ toInteger n