From dcae0a0cdce5d8eb5a7b1977bfe8f490aeb98124 Mon Sep 17 00:00:00 2001
From: Michel Boucey <michel.boucey@gmail.com>
Date: Wed, 31 Jan 2024 18:43:38 +0100
Subject: [PATCH] Point free rewrittings

---
 lib/Data/NanoID.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Data/NanoID.hs b/lib/Data/NanoID.hs
index 2b5108c..ea21e6b 100644
--- a/lib/Data/NanoID.hs
+++ b/lib/Data/NanoID.hs
@@ -29,10 +29,10 @@ newtype Alphabet =
 type Length = Natural
 
 instance Show NanoID where
-  show n = C.unpack (unNanoID n)
+  show = C.unpack . unNanoID
 
 instance Show Alphabet where
-  show a = C.unpack (unAlphabet a)
+  show = C.unpack . unAlphabet
 
 instance ToJSON NanoID where
   toJSON n = String (decodeUtf8 $ unNanoID n)