Add basic prompt

app/Main.hs

@@ -11,6 +11,7 @@ import Dodge.Config.KeyConfig
 import Dodge.Config.Load
 import Dodge.Config.Update
 import Dodge.LoadSound
+import Dodge.Debug.Flag.Data
 import Picture
 import Picture.Render
 import Picture.Preload
@@ -52,7 +53,7 @@ doSideEffects preData w = do
     
     endTicks <- SDL.ticks
     let lastFrameTicks = _frameTimer preData
-    when (_debugMode w) $ void $ renderFoldable
+    when (_displaySecondsPerFrame $ _debugFlags w) $ void $ renderFoldable
                 (_renderData preData)
                 (picToLTree Nothing . setLayer 1 . setDepth (-1)
                     . translate (-0.5) (-0.8) . scale 0.0005 0.0005