From 898234de33ed9a65677ffb95d8d2277487b510df Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Sat, 15 Jun 2019 10:55:46 +1200
Subject: [PATCH] Add some resiliancy checks.

---
 src/Stylish/Parse.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Stylish/Parse.hs b/src/Stylish/Parse.hs
index e81c05b..cf98a59 100644
--- a/src/Stylish/Parse.hs
+++ b/src/Stylish/Parse.hs
@@ -50,6 +50,7 @@ parse' stylesheet tokens = parse' (addRule stylesheet rule) tokens'
 --------
 parseProperties (LeftCurlyBracket:tokens) = parseProperties' tokens
 parseProperties (Whitespace:tokens) = parseProperties tokens
+parseProperties [] = ([], [])
 
 parseProperties' (Whitespace:tokens) = parseProperties' tokens
 parseProperties' (Ident name:tokens)
@@ -57,6 +58,7 @@ parseProperties' (Ident name:tokens)
         concatP appendProp scanValue parseProperties' tokens'
     where appendProp value tail = (name, value):tail
 parseProperties' (RightCurlyBracket:tokens) = ([], tokens)
+parseProperties' [] = ([], [])
 parseProperties' tokens = parseProperties' (skipValue tokens)
 
 --------
@@ -74,6 +76,7 @@ skipAtRule (RightParen:tokens) = RightParen:tokens
 skipAtRule (RightSquareBracket:tokens) = RightSquareBracket:tokens
 
 skipAtRule (_:tokens) = skipAtRule tokens
+skipAtRule [] = []
 
 scanValue (Semicolon:tokens) = ([], tokens)
 scanValue (Whitespace:tokens) = scanValue tokens
-- 
2.30.2