From 1afea8c0135ce0d5da621fb2f65b6e7dc1a8b396 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 8 Sep 2023 09:44:02 -0600
Subject: [PATCH] suppress deprecation warnings

---
 projects/_deprecated/flixel-desktop-handloose/Project.xml | 3 +++
 projects/_standalone/habit-puzzles/Project.xml            | 4 ++++
 projects/_standalone/habit-puzzles/source/HabitModel.kiss | 2 --
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/projects/_deprecated/flixel-desktop-handloose/Project.xml b/projects/_deprecated/flixel-desktop-handloose/Project.xml
index 0f6c8c39..a75ed1fd 100644
--- a/projects/_deprecated/flixel-desktop-handloose/Project.xml
+++ b/projects/_deprecated/flixel-desktop-handloose/Project.xml
@@ -35,6 +35,9 @@
 	<haxelib name="flixel" />
 	<haxelib name="kiss" />
 
+	<haxeflag name="-w" value="-WDeprecated" />
+
+
 	<!--In case you want to use the addons package-->
 	<!--<haxelib name="flixel-addons" />-->
 
diff --git a/projects/_standalone/habit-puzzles/Project.xml b/projects/_standalone/habit-puzzles/Project.xml
index 67cc6a8e..36282e93 100644
--- a/projects/_standalone/habit-puzzles/Project.xml
+++ b/projects/_standalone/habit-puzzles/Project.xml
@@ -42,6 +42,10 @@
 	<haxelib name="kiss-flixel" />
 	<haxelib name="datetime" />
 	<haxelib name="re-flex" />
+	
+	<haxeflag name="-w" value="-WDeprecated" />
+
+	
 	<assets path="assets" />
 	<assets path="puzzles/Photos by Trent Nelson" unless="CI_OS_NAME" />
 	<assets path="puzzles/neuro" if="debug" />
diff --git a/projects/_standalone/habit-puzzles/source/HabitModel.kiss b/projects/_standalone/habit-puzzles/source/HabitModel.kiss
index 8fe60c3e..c924daf4 100644
--- a/projects/_standalone/habit-puzzles/source/HabitModel.kiss
+++ b/projects/_standalone/habit-puzzles/source/HabitModel.kiss
@@ -9,7 +9,6 @@
 (defNew [&prop :String textFile]
     (let [s (Stream.fromFile textFile)
             &mut lastHeader ""]
-        // TODO could be whileLet
         (loop
             (case (s.takeLine)
                 ((Some "DAILY")
@@ -183,7 +182,6 @@
                 (when (= today 0) (set today 7))
                 (and !(= lastDayDone (todayString)) (contains days today))))
         ((Monthly days lastDayDone)
-            // TODO logic
             (let [&mut nextDay
                         (DateTime.fromDate (Date.now))
                     oneDayInterval (DateTimeInterval.create (DateTime.make 1970 1 1) (DateTime.make 1970 1 2))