Cleanup

src/Loop.hs

@@ -28,7 +28,7 @@ import Data.Foldable
  
 -- | Create a game loop with an SDL window.
 setupLoop ::
-    -- | Target seconds per frame
+    -- | Target mseconds per frame
     Int ->
     -- | Window title
     T.Text ->
@@ -101,7 +101,7 @@ applyEventIO fn mw e = case eventPayload e of
 
 -- | Create a game loop with an SDL window.
 setupConLoop ::
-    -- | Target seconds per frame
+    -- | Target mseconds per frame
     Int ->
     -- | Window title
     T.Text ->
@@ -191,7 +191,7 @@ doConLoop themvar spf window coneffs worldSideEffects eventFn !startWorld = go s
 
 -- | Create a game loop with an SDL window.
 setupConLoop' ::
-    -- | Target seconds per frame
+    -- | Target mseconds per frame
     Int ->
     -- | Window title
     T.Text ->