Merge pull request #121 from xsebek/haskell

Add Haskell support

README.md

@@ -79,6 +79,7 @@ There are additional inputs if you want to be able to assign issues to projects.
 * Go
 * Handlebars
 * HCL
+* Haskell
 * HTML
 * Java
 * JavaScript

syntax.json

@@ -323,6 +323,22 @@
       }
     ]
   },
+  {
+    "language": "Haskell",
+    "markers": [
+      {
+        "type": "line",
+        "pattern": "--"
+      },
+      {
+        "type": "block",
+        "pattern": {
+          "start": "{-",
+          "end": "-}"
+        }
+      }
+    ]
+  },
   {
     "language": "HTML",
     "markers": [

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

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.