From 119c30070c43954bfc091eb8d73491077c04f8af Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Wed, 20 Nov 2024 18:03:13 +0800
Subject: [PATCH] Hlint

---
 lib/GHCup/Types/JSON.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/GHCup/Types/JSON.hs b/lib/GHCup/Types/JSON.hs
index a4a3c941..bebe0f2d 100644
--- a/lib/GHCup/Types/JSON.hs
+++ b/lib/GHCup/Types/JSON.hs
@@ -50,7 +50,7 @@ import qualified Text.Megaparsec               as MP
 import qualified Text.Megaparsec.Char          as MPC
 
 instance ToJSON LinuxDistro where
-  toJSON x = String . T.pack . show $ x
+  toJSON = String . T.pack . show
 
 instance FromJSON LinuxDistro where
   parseJSON = withText "LinuxDistro" $ \t -> case T.unpack (T.toLower t) of