From 3c7c587045df87eaf244a5c60de2d00228b7afd0 Mon Sep 17 00:00:00 2001
From: Felix Dilke <felix.dilke@obsidian.systems>
Date: Wed, 28 Jan 2026 16:45:01 +0000
Subject: [PATCH] tidying

---
 haskell-experiments/src/ArithmeticParser.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/haskell-experiments/src/ArithmeticParser.hs b/haskell-experiments/src/ArithmeticParser.hs
index 741695a..5f32bd5 100644
--- a/haskell-experiments/src/ArithmeticParser.hs
+++ b/haskell-experiments/src/ArithmeticParser.hs
@@ -7,13 +7,12 @@ import Text.Megaparsec.Char
 import qualified Text.Megaparsec.Char.Lexer as L
 import Data.Void
 import Data.Text (Text)
--- import qualified Data.Text as T
 
 -- Type aliases for convenience
 type Parser = Parsec Void Text
 
 -- ┌───────────────────────────────┐
--- │        AST Definition         │
+-- │        AST Definition      │
 -- └───────────────────────────────┘
 data Expr
   = ENumber   Integer           -- 42, -7, etc.
@@ -24,7 +23,7 @@ data Expr
   deriving (Show, Eq)
 
 -- ┌───────────────────────────────┐
--- │         Basic lexemes         │
+-- │         Basic lexemes      │
 -- └───────────────────────────────┘
 
 -- Skip spaces & newlines
@@ -52,7 +51,7 @@ signedInteger :: Parser Integer
 signedInteger = L.signed sc integer
 
 -- ┌───────────────────────────────┐
--- │        Expression levels      │
+-- │        Expression levels   │
 -- └───────────────────────────────┘
 
 -- Lowest precedence: numbers & parenthesized expressions
@@ -78,7 +77,7 @@ expr = factor `chainl1` addOrSub
             <|> ESub <$ symbol "-"
 
 -- ┌───────────────────────────────┐
--- │         Main parser           │
+-- │         Main parser        │
 -- └───────────────────────────────┘
 
 parseExpr :: Text -> Either (ParseErrorBundle Text Void) Expr
@@ -86,7 +85,7 @@ parseExpr =
   parse (sc *> expr <* eof) "<input>"
 
 -- ┌───────────────────────────────┐
--- │     Helpful chainl1 alias     │
+-- │     Helpful chainl1 alias  │
 -- └───────────────────────────────┘
 chainl1 :: Parser a -> Parser (a -> a -> a) -> Parser a
 chainl1 p op = do