Remove pretty dependency, use cssNumberText

sebastiaanvisser · Nov 13, 2023 · 20545cc · 20545cc
1 parent 70f2947
commit 20545cc
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 9 deletions.
diff --git a/clay.cabal b/clay.cabal
@@ -79,7 +79,6 @@ Library
   Build-Depends:
     base  >= 4.11 && < 4.18,
     mtl   >= 1,
-    pretty >= 1,
     text  >= 0.11
   GHC-Options: -Wall -Wcompat
   Default-Language: Haskell2010
@@ -94,7 +93,6 @@ Test-Suite Test-Clay
     mtl                  >= 1,
     text                 >= 0.11,
     hspec                >= 2.2.0,
-    hspec-discover       >= 2.2.0,
-    pretty               >= 1
+    hspec-discover       >= 2.2.0
   GHC-Options: -Wall -Wcompat
   Default-Language: Haskell2010
diff --git a/src/Clay/Property.hs b/src/Clay/Property.hs
@@ -8,7 +8,6 @@ import Data.List.NonEmpty (NonEmpty, toList)
 import Data.Maybe
 import Data.String
 import Data.Text (Text, replace)
-import Text.PrettyPrint.HughesPJClass (Pretty(pPrint), text)
 
 data Prefixed = Prefixed { unPrefixed :: [(Text, Text)] } | Plain { unPlain :: Text }
   deriving (Show, Eq)
@@ -103,9 +102,6 @@ intercalate s (x:xs) = foldl (\a b -> a `mappend` s `mappend` b) x xs
 newtype Number = Number { unNumber :: Fixed E5 }
   deriving (Enum, Eq, Fractional, Num, Ord, Read, Real, RealFrac, Show)
 
-instance Pretty Number where
-  pPrint = text . showFixed True . unNumber
-
 instance Val Number where
   value = Value . Plain . cssNumberText
 

diff --git a/src/Clay/Render.hs b/src/Clay/Render.hs
@@ -19,7 +19,6 @@ import           Data.Maybe
 import           Data.Text              (Text, pack)
 import           Data.Text.Lazy.Builder
 import           Prelude                hiding ((**))
-import           Text.PrettyPrint.HughesPJClass (pPrint)
 
 import qualified Data.Text              as Text
 import qualified Data.Text.Lazy         as Lazy
@@ -151,7 +150,7 @@ kframe cfg (Keyframes ident xs) =
 frame :: Config -> (Number, [Rule]) -> Builder
 frame cfg (p, rs) =
   mconcat
-    [ fromText (pack (show (pPrint p)))
+    [ fromText (cssNumberText p)
     , "% "
     , rules cfg [] rs
     ]