<commit_before>{-# LANGUAGE CPP #-}
{-# LANGUAGE KindSignatures #-}
#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 704
{-# LANGUAGE Unsafe #-}
#endif
-----------------------------------------------------------------------------
-- |
-- Module      :  Control.Lens.Unsafe
-- Copyright   :  (C) 2012 <NAME>
-- License     :  BSD-style (see the file LICENSE)
-- Maintainer  :  <NAME> <<EMAIL>>
-- Stability   :  provisional
-- Portability :  Rank2Types
--
----------------------------------------------------------------------------
module Control.Lens.Unsafe
  ( Trustworthy
  ) where

import Control.Applicative
import Control.Applicative.Backwards
import Data.Functor.Identity
import Data.Functor.Compose

-- | This class is only exported by this untrustworthy module, but is a superclass of 'Gettable'.
--
-- This is required because otherwise you could construct 'unsafeCoerce' using 'BazaarT' and
-- an illegal 'Gettable' instance that uses 'undefined'.

class Trustworthy (f :: * -> *)
instance Trustworthy (Const a)
instance Trustworthy Identity
instance Trustworthy f => Trustworthy (Backwards f)
instance Trustworthy g => Trustworthy (Compose f g)<commit_msg>better linking<commit_after>{-# LANGUAGE CPP #-}
{-# LANGUAGE KindSignatures #-}
#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 704
{-# LANGUAGE Unsafe #-}
#endif
-----------------------------------------------------------------------------
-- |
-- Module      :  Control.Lens.Unsafe
-- Copyright   :  (C) 2012 <NAME>
-- License     :  BSD-style (see the file LICENSE)
-- Maintainer  :  <NAME> <<EMAIL>>
-- Stability   :  provisional
-- Portability :  Rank2Types
--
----------------------------------------------------------------------------
module Control.Lens.Unsafe
  ( Trustworthy
  ) where

import Control.Applicative
import Control.Applicative.Backwards
import Data.Functor.Identity
import Data.Functor.Compose

-- | This class is only exported by this untrustworthy module, but is a superclass of 'Gettable'.
--
-- This is required because otherwise you could construct 'Unsafe.Coerce.unsafeCoerce' using 'Control.Lens.Internal.BazaarT.BazaarT' and
-- an illegal 'Control.Lens.Classes.Gettable' instance that uses @'Control.Lens.Classes.coerce' = 'undefined'@.

class Trustworthy (f :: * -> *)
instance Trustworthy (Const a)
instance Trustworthy Identity
instance Trustworthy f => Trustworthy (Backwards f)
instance Trustworthy g => Trustworthy (Compose f g)
{'fraction_non_alphanumeric': 0.2276058631921824, 'fraction_numerical': 0.006514657980456026, 'mean_word_length': 2.3292682926829267, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 19, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3713744', 'n_tokens_mistral': 722, 'n_tokens_neox': 694, 'n_words': 201}