From ba178789e78e5a52740d5b8a91d7bb1f0446c265 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 9 Feb 2023 14:33:26 +0300
Subject: [PATCH] fixed parse error

---
 lib/Data/Config/Suckless/Parse/Megaparsec.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/Data/Config/Suckless/Parse/Megaparsec.hs b/lib/Data/Config/Suckless/Parse/Megaparsec.hs
index dc0ca59..5640e13 100644
--- a/lib/Data/Config/Suckless/Parse/Megaparsec.hs
+++ b/lib/Data/Config/Suckless/Parse/Megaparsec.hs
@@ -168,13 +168,13 @@ top = many $ do
 
 topTerm :: forall c . MegaConstraints c => Parser (Syntax c)
 topTerm = do
-  sc
-  co <- MegaContext . Just <$> getOffset
-  s0 <- symbol scTop
-  ss <- many (syntax scTop)
+  L.lexeme sc $ do
+    co <- MegaContext . Just <$> getOffset
+    s0 <- symbol scTop
+    ss <- many (syntax scTop)
 
-  void eol <|> eof
-  pure $ List co (s0:ss)
+    void eol <|> eof
+    pure $ List co (s0:ss)
 
 topStmt :: forall c . MegaConstraints c => Parser (Syntax c)
 topStmt = topTerm <|> syntax scTop