Refactor SQLDB test specifications for improved readability and consistency

- Updated import statements for better organization and clarity in PostgresDBSpec.hs, QueryExamplesSpec.hs, and SQLiteDBSpec.hs.
- Reformatted configuration definitions in PostgresDBSpec.hs and SQLiteDBSpec.hs for consistency.
- Enhanced test descriptions and assertions for clarity in all test specifications.
- Improved formatting of data structures and instances for better readability.
- Ensured consistent use of line breaks and indentation across all test files.

Author: vijaygupta18

Setup.hs

@@ -1,2 +1,3 @@
 import Distribution.Simple
+
 main = defaultMain

src/EulerHS/Api.hs

@@ -1,9 +1,10 @@
 module EulerHS.BinaryString
-( BinaryString(..)
-, LBinaryString(..)
-, base64Encode
-, base64Decode
-) where
+  ( BinaryString (..),
+    LBinaryString (..),
+    base64Encode,
+    base64Decode,
+  )
+where
 
 import qualified Control.Monad.Fail as MonadFail
 import qualified Data.ByteString as Strict
@@ -12,19 +13,18 @@ import qualified Data.ByteString.Lazy as Lazy
 import qualified Data.String.Conversions as Conversions
 import qualified Data.Text as Text
 import qualified Data.Text.Encoding as Encoding
-import           EulerHS.Prelude
-import           Text.Read (read)
+import EulerHS.Prelude
+import Text.Read (read)
 
 -- TODO: Move to euler-db
 
 --------------------------------------------------------------------------
 -- Base64 encoding/decoding helpers
 --------------------------------------------------------------------------
 
-newtype BinaryString
-  = BinaryString
-    { getBinaryString :: Strict.ByteString }
-    deriving (Show, Eq, Ord)
+newtype BinaryString = BinaryString
+  {getBinaryString :: Strict.ByteString}
+  deriving (Show, Eq, Ord)
 
 instance ToJSON BinaryString where
   toJSON val = toJSON ((show $ getBinaryString val) :: Text)
@@ -50,10 +50,9 @@ instance Conversions.ConvertibleStrings BinaryString Lazy.ByteString where
 -- Lazy BinaryString
 --------------------------------------------------------------------------
 
-newtype LBinaryString
-  = LBinaryString
-    { getLBinaryString :: Lazy.ByteString }
-    deriving (Show, Eq, Ord)
+newtype LBinaryString = LBinaryString
+  {getLBinaryString :: Lazy.ByteString}
+  deriving (Show, Eq, Ord)
 
 instance ToJSON LBinaryString where
   toJSON val = toJSON (show (getLBinaryString val) :: Text)
@@ -82,15 +81,13 @@ instance Conversions.ConvertibleStrings LBinaryString Strict.ByteString where
 -- | Base64 encode a bytestring
 --
 -- NOTE: Decoding to UTF-8 cannot fail so is safe
---
 base64Encode :: Strict.ByteString -> Text.Text
 base64Encode = Encoding.decodeUtf8 . B64.encode
 
 -- | Base64 decode a Base64-encoded string
 --
 -- NOTE: This may fail if the string is malformed using MonadFail
---
 base64Decode :: MonadFail.MonadFail m => Text.Text -> m Strict.ByteString
 base64Decode s = case B64.decode (Encoding.encodeUtf8 s) of
-  Left err  -> fail err
+  Left err -> fail err
   Right res -> return res