From ffcd13eb8c12f820ec7a49afdcb4b55479443e0d Mon Sep 17 00:00:00 2001
From: Simon-Kor <52245124+Simon-Kor@users.noreply.github.com>
Date: Thu, 28 Mar 2024 16:38:57 +0100
Subject: Allow Windows-style newlines

---
 source/Syntax/Token.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'source')

diff --git a/source/Syntax/Token.hs b/source/Syntax/Token.hs
index 7c8606c..7a9a42d 100644
--- a/source/Syntax/Token.hs
+++ b/source/Syntax/Token.hs
@@ -431,7 +431,7 @@ lexeme p = do
     pure (Located start t)
 
 space :: Lexer ()
-space = void (Char.char ' ' <|> Char.char '\n')
+space = void (Char.char ' ' <|> Char.char '\n' <|> Char.char '\r')
     <|> void (Char.string "\\ " <|> Char.string "\\\\" <|> Char.string "\\!" <|> Char.string "\\," <|> Char.string "\\:" <|> Char.string "\\;" <|> Char.string "\\;")
 
 whitespace :: Lexer ()
-- 
cgit v1.2.3