Point free rewrittings

MichelBoucey · Jan 31, 2024 · dcae0a0 · dcae0a0
1 parent 856b1a5
commit dcae0a0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)