<commit_before>{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

module ZoomHub.Types.DeepZoomImage
  ( DeepZoomImage
  , TileFormat(..)
  , TileOverlap(..)
  , TileSize(..)
  , dziWidth
  , dziHeight
  , dziTileSize
  , dziTileOverlap
  , dziTileFormat
  , mkDeepZoomImage
  , fromXML
  ) where


import           Data.Aeson                              (ToJSON, Value (Number, String),
                                                          genericToJSON, toJSON)
import           Data.Aeson.Casing                       (aesonPrefix,
                                                          camelCase)
import qualified Data.Text                               as T
import           Database.SQLite.Simple                  (SQLData (SQLText, SQLInteger))
import           Database.SQLite.Simple.FromField        (FromField, ResultError (ConversionFailed),
                                                          fromField,
                                                          returnError)
import           Database.SQLite.Simple.Internal         (Field (Field))
import           Database.SQLite.Simple.Ok               (Ok (Ok))
import           Database.SQLite.Simple.ToField          (ToField, toField)
import           GHC.Generics                            (Generic)
import           Text.Read                               (readMaybe)
import           Text.XML.Light                          (QName (QName))
import           Text.XML.Light.Input                    (parseXMLDoc)
import           Text.XML.Light.Proc                     (findAttr, findElement)

import           ZoomHub.Types.DeepZoomImage.TileFormat  (TileFormat (..))<commit_msg>Clean up `import`s<commit_after>{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

module ZoomHub.Types.DeepZoomImage
  ( DeepZoomImage
  , TileFormat(..)
  , TileOverlap(..)
  , TileSize(..)
  , dziWidth
  , dziHeight
  , dziTileSize
  , dziTileOverlap
  , dziTileFormat
  , mkDeepZoomImage
  , fromXML
  ) where


import           Data.Aeson                              (ToJSON, genericToJSON,
                                                          toJSON)
import           Data.Aeson.Casing                       (aesonPrefix,
                                                          camelCase)
import           GHC.Generics                            (Generic)
import           Text.Read                               (readMaybe)
import           Text.XML.Light                          (QName (QName))
import           Text.XML.Light.Input                    (parseXMLDoc)
import           Text.XML.Light.Proc                     (findAttr, findElement)

import           ZoomHub.Types.DeepZoomImage.TileFormat  (TileFormat (..))
{'fraction_non_alphanumeric': 0.07920085622547271, 'fraction_numerical': 0.0, 'mean_word_length': 1.168600154679041, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 12, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4021796', 'n_tokens_mistral': 715, 'n_tokens_neox': 693, 'n_words': 134}