diff --git a/tests/test_new.diff b/tests/test_new.diff
index 7aa01e1..c1c81d6 100644
--- a/tests/test_new.diff
+++ b/tests/test_new.diff
@@ -78,6 +78,26 @@ index 0000000..525e25d
 +    '''
 +    pass
 \ No newline at end of file
+diff --git a/src/Swarm/Game/example.hs b/src/Swarm/Game/example.hs
+new file mode 100644
+index 0000000..0ce9b1a
+--- /dev/null
++++ b/src/Swarm/Game/example.hs
+@@ -0,0 +1,14 @@
++-- | Standard devices that are always installed.
++-- 
++-- TODO: Remove standard devices
++--   In the future, make a way to build these and just start the base
++--   out with a large supply of each?
++--   labels: redesign
++stdDeviceList =
++  ["treads", "grabber", "solar panel", "scanner", "plasma cutter"]
++
++{- | Very complicated function.
++
++TODO: Create an issue for TODO
++-}
++sum a b = a + b
 diff --git a/tests/example_file.cr b/tests/example_file.cr
 new file mode 100644
 index 0000000..e6da2ec
diff --git a/tests/test_todo_parser.py b/tests/test_todo_parser.py
index 4dec87a..a647c3e 100644
--- a/tests/test_todo_parser.py
+++ b/tests/test_todo_parser.py
@@ -70,6 +70,8 @@ class NewIssueTests(unittest.TestCase):
     def test_r_issues(self):
         self.assertEqual(count_issues_for_file_type(self.raw_issues, 'r'), 2)
 
+    def test_haskell_issues(self):
+        self.assertEqual(count_issues_for_file_type(self.raw_issues, 'haskell'), 2)
 
 class ClosedIssueTests(unittest.TestCase):
     # Check for removed TODOs across the files specified.