tower backend: switch to new tower compiler

support/tower/CodeGen.hs.template

@@ -7,16 +7,13 @@ module Main where
 import Ivory.Language
 import Ivory.Tower
 import Ivory.Tower.Config
-import Ivory.Tower.Compile
 import Ivory.OS.FreeRTOS.Tower.STM32
 
 $imports$
 
 main :: IO ()
-main = towerCompile p app
-  where p topts = do
-            cfg <- getConfig topts (stm32ConfigParser (stm32f405Defaults 24))
-            return (stm32FreeRTOS id cfg)
+main = compileTowerSTM32FreeRTOS testplatform_stm32 p app
+  where p topts = getConfig topts (stm32ConfigParser (stm32f405Defaults 24))
 
 app :: Tower e ()
 app = do