From 04c9043b89be694d8e74cf9e11b8648488416aee Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 21 Nov 2025 04:25:10 -0500
Subject: fix: lint errors in Omni/Agent/Git.hs and Log.hs

Amp-Thread-ID:
https://ampcode.com/threads/T-7109f8d0-feb4-4a24-bc4b-37743227e2cb
Co-authored-by: Amp <amp@ampcode.com>
---
 Omni/Agent/Log.hs | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

(limited to 'Omni/Agent/Log.hs')

diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs
index 33b9722..c93479b 100644
--- a/Omni/Agent/Log.hs
+++ b/Omni/Agent/Log.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
@@ -26,14 +25,21 @@ data LogEntry = LogEntry
   deriving (Show, Eq, Generic)
 
 instance FromJSON LogEntry where
-  parseJSON = Aeson.withObject "LogEntry" <| \v ->
-    LogEntry
-      <$> v .: "message"
-      <*> v .:? "level"
-      <*> v .:? "toolName"
-      <*> v .:? "batches"
-      <*> v .:? "method"
-      <*> v .:? "path"
+  parseJSON =
+    Aeson.withObject "LogEntry" <| \v ->
+      ( LogEntry
+          </ (v .: "message")
+      )
+        <*> v
+        .:? "level"
+        <*> v
+        .:? "toolName"
+        <*> v
+        .:? "batches"
+        <*> v
+        .:? "method"
+        <*> v
+        .:? "path"
 
 parseLine :: Text -> Maybe LogEntry
 parseLine line = Aeson.decode <| BSL.fromStrict <| encodeUtf8 line
-- 
cgit v1.2.3