Avoid Data.List.singleton (to avoid CPP for 8.10.7)

adetokunbo · Feb 5, 2024 · 4881c67 · 4881c67
1 parent 8ef4995
commit 4881c67
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/System/MemInfo/Print.hs b/src/System/MemInfo/Print.hs
@@ -18,7 +18,6 @@ module System.MemInfo.Print (
   styleOutput,
 ) where
 
-import Data.List (singleton)
 import qualified Data.Text as Text
 import Fmt (
   build,
@@ -212,4 +211,4 @@ outputOf isAccurate style usages =
    in case overall of
         Nothing -> headerAndRows
         Just _ | not isAccurate -> headerAndRows
-        Just o -> headerAndRows <> singleton o
+        Just o -> headerAndRows <> [o]