From add210d1da163cb2b6f34169efde8be4db67e341 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 7 Apr 2026 18:06:50 +0200
Subject: hlint

---
 src/ZNC.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/ZNC.hs')

diff --git a/src/ZNC.hs b/src/ZNC.hs
index df57541..36d3d4f 100644
--- a/src/ZNC.hs
+++ b/src/ZNC.hs
@@ -13,6 +13,7 @@ import Data.ByteString qualified as BS
 import Data.ByteString.Char8 qualified as BS8
 import Data.Char (ord)
 import Data.Either (fromRight)
+import Data.Maybe (fromMaybe)
 import Data.Text (Text)
 import Data.Text.Encoding qualified as TE
 import Data.Vector.Storable qualified as VS
@@ -61,7 +62,7 @@ parseLog = map parseLogLine . BS8.lines
 {-# INLINE parseLogRange #-}
 parseLogRange :: (Int, Maybe Int) -> VS.Vector Word32 -> ByteString -> [(HMS, Event)]
 parseLogRange (startln, mnumln) linestarts topbs =
-  let numln = maybe (VS.length linestarts - startln) id mnumln
+  let numln = fromMaybe (VS.length linestarts - startln) mnumln
       splitted = splitWithLineStarts 0 (VS.slice startln numln linestarts) topbs
   in -- traceShow ("pLR"::String, splitted) $
      map parseLogLine splitted
-- 
cgit v1.3