removing a warning

kazu-yamamoto · Feb 6, 2023 · d9a18cb · d9a18cb
1 parent 70119c1
commit d9a18cb
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/fast-logger/System/Log/FastLogger/LogStr.hs b/fast-logger/System/Log/FastLogger/LogStr.hs
@@ -50,12 +50,14 @@ data LogStr = LogStr !Int Builder
 instance Semi.Semigroup LogStr where
     {-# INLINE (<>) #-}
     LogStr s1 b1 <> LogStr s2 b2 = LogStr (s1 + s2) (b1 <> b2)
-#endif
-
+instance Monoid LogStr where
+    mempty = LogStr 0 (toBuilder BS.empty)
+#else
 instance Monoid LogStr where
     mempty = LogStr 0 (toBuilder BS.empty)
     {-# INLINE mappend #-}
     LogStr s1 b1 `mappend` LogStr s2 b2 = LogStr (s1 + s2) (b1 <> b2)
+#endif
 
 instance IsString LogStr where
     {-# INLINE fromString #-}