From aa897bb7e2ae257c2680521e6b1c1cad1237df53 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 18 Dec 2021 17:52:25 +0100
Subject: fixed parsing of tiled objects

(points behave slightly differntly than I thought)
---
 lib/Types.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/Types.hs')

diff --git a/lib/Types.hs b/lib/Types.hs
index 978ada2..3ec9ebc 100644
--- a/lib/Types.hs
+++ b/lib/Types.hs
@@ -93,6 +93,9 @@ instance ToJSON Lint where
   toJSON (Offers l) = A.object
     [ "msg" .= prettyprint l
     , "level" .= A.String "Entrypoint Info" ]
+  toJSON (Badge _) = A.object
+    [ "msg" .= A.String "found a badge"
+    , "level" .= A.String "Badge Info"]
 
 instance ToJSON Hint where
   toJSON (Hint l m) = A.object
-- 
cgit v1.2.3