fourmolu.yaml

@@ -1,2 +0,0 @@
-haddock-style: single-line
-indentation: 2

src/FilePack/Encode.hs

@@ -7,19 +7,9 @@ import Data.ByteString.Char8 qualified as BC
 import Data.Text (Text)
 import Data.Text.Encoding (encodeUtf8)
 import Data.Word (Word32, Word8)
-import System.Posix (CMode (..), FileMode)
 
 class Encode a where
     encode :: a -> ByteString
-  encode = BS.drop 4 . encodeWithSize
-
-  encodeWithSize :: a -> ByteString
-  encodeWithSize x =
-    let s = encode x
-        l = fromIntegral $ BS.length s
-     in word32ToByteString l <> s
-
-  {-# MINIMAL encode | encodeWithSize #-}
 
 instance Encode ByteString where
     encode = id
@@ -32,13 +22,11 @@ instance Encode String where
 
 type Byte = Word8
 
--- | @word32ToBytes@ splits a 32bit word into its 4 byte components.
+{- | @word32ToBytes@ splits a 32bit word into its 4 byte components.
---
+
--- >>> word32ToBytes 0xdeadbeef
+ >>> word32ToBytes 0xdeadbeef
--- (222,173,190,239)
+ (222,173,190,239)
---
+-}
--- >>> word32ToBytes 4
--- (0,0,0,4)
 word32ToBytes :: Word32 -> (Byte, Byte, Byte, Byte)
 word32ToBytes word = (a, b, c, d)
   where
@@ -47,10 +35,11 @@ word32ToBytes word = (a, b, c, d)
     !c = fromIntegral $ (word .&. 0x0000ff00) `shift` (-8)
     !d = fromIntegral $ (word .&. 0x000000ff) `shift` (-0)
 
--- | @word32ToByteString@ encodes a 32-bit wide word into a bytestring.
+{- | @word32ToByteString@ encodes a 32-bit wide word into a bytestring.
---
+
--- >>> word32ToByteString 0xdeadbeef
+ >>> word32ToByteString 0xdeadbeef
--- "\222\173\190\239"
+ "\222\173\190\239"
+-}
 word32ToByteString :: Word32 -> ByteString
 word32ToByteString word =
     let (a, b, c, d) = word32ToBytes word
@@ -58,18 +47,3 @@ word32ToByteString word =
 
 instance Encode Word32 where
     encode = word32ToByteString
-  encodeWithSize w =
-    let (a, b, c, d) = word32ToBytes w
-     in BS.pack
-          [ 0
-          , 0
-          , 0
-          , 4
-          , a
-          , b
-          , c
-          , d
-          ]
-
-instance Encode FileMode where
-  encode (CMode mode) = encode mode