Add FixedString Value encoder and run ormolu on src/test

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

Author: alexbiehl

src/Database/ClickHouse/Stream.hs

@@ -14,7 +14,7 @@ where
 
 import Data.List.NonEmpty (NonEmpty, toList)
 import Data.Vector (Vector)
-import qualified Data.Vector as Vector
+import Data.Vector qualified as Vector
 
 -- | A CPS (Scott-encoded) stream type. Each step either yields an element
 -- and a tail, or signals the end of the stream.

src/Database/ClickHouse/Value.hs

@@ -1,3 +1,5 @@
+{-# LANGUAGE DataKinds #-}
+
 module Database.ClickHouse.Value
   ( Value,
     runValue,
@@ -22,6 +24,7 @@ module Database.ClickHouse.Value
     date,
     date32,
     nullable,
+    fixedString,
     tuple,
     tuple3,
     tuple4,
@@ -46,7 +49,9 @@ import Data.Time.Clock.System qualified
 import Data.UUID qualified
 import Data.Void (absurd)
 import Data.Word (Word16, Word32, Word64, Word8)
+import Database.ClickHouse.Result (FixedString (..))
 import GHC.Exts qualified
+import GHC.TypeLits qualified
 
 -- | An encoder that serializes a value of type @a@ for insertion into
 -- ClickHouse.
@@ -144,6 +149,15 @@ string = Value $ \text ->
     <> Data.Text.Encoding.encodeUtf8Builder text
 {-# INLINE string #-}
 
+-- | Encode a 'FixedString'. Corresponds to ClickHouse @FixedString(n)@.
+--
+-- The inner 'Data.ByteString.ByteString' is written as-is (no length prefix),
+-- which matches the RowBinary wire format for @FixedString@.
+fixedString :: forall (n :: GHC.TypeLits.Nat). Value (FixedString n)
+fixedString = Value $ \(FixedString bs) ->
+  Data.ByteString.Builder.byteString bs
+{-# INLINE fixedString #-}
+
 -- | Encode a 'Data.UUID.UUID'. Corresponds to ClickHouse @UUID@.
 uuid :: Value Data.UUID.UUID
 uuid = Value $ \uuid ->

test/Main.hs

@@ -19,8 +19,8 @@ import Data.Vector qualified
 import Data.Word (Word16, Word32, Word64, Word8)
 import Database.ClickHouse qualified
 import Database.ClickHouse.Params qualified
-import Database.ClickHouse.Result qualified
 import Database.ClickHouse.Result (FixedString (..))
+import Database.ClickHouse.Result qualified
 import Database.ClickHouse.Value qualified
 import Test.Tasty qualified
 import Test.Tasty.HUnit (testCase, (@=?))
@@ -1945,4 +1945,4 @@ data WideRow = WideRow
     col_tuple2b :: (Bool, Int64),
     col_array_tuple :: Data.Vector.Vector (Text, Int32)
   }
-  deriving (Eq, Show)
+  deriving (Eq, Show)