Drop keyframesName function, exposing KeyframesName constructor instead. (#34)

* Drop keyframesName function, exposing KeyframesName constructor instead.

* Add CHANGELOG entry regarding KeyframesName.

Author: nsaunders

CHANGELOG.md

@@ -6,6 +6,7 @@ Notable changes are documented in this file. The format is based on [Keep a Chan
 
 Breaking changes:
 - _For pseudo-elements only_, the `&:` operator has bee replaced by `&::`. Pseudo-classes continue to work with the `&:` operator. (nsaunders/purescript-tecton#33)
+- The `keyframesName` function has been dropped. Just use the `KeyframesName` constructor instead. (nsaunders/purescript-tecton#34)
 
 For example:
 

examples/ZenGarments.purs

@@ -7,7 +7,8 @@ import Data.Tuple.Nested ((/\))
 import Effect (Effect)
 import Effect.Console (log)
 import Tecton
-  ( a
+  ( KeyframesName(..)
+  , a
   , abbr
   , absolute
   , acronym
@@ -77,7 +78,6 @@ import Tecton
   , input
   , italic
   , keyframes
-  , keyframesName
   , label
   , left
   , letterSpacing
@@ -892,7 +892,7 @@ main = log $ renderSheet pretty do
 
   -- Animations
 
-  let fadey = keyframesName "FADEY"
+  let fadey = KeyframesName "FADEY"
 
   keyframes fadey ? do
     pct 0 ? Rule.do

examples/type-errors/KeyframesNonAnimatableProperty.purs

@@ -13,12 +13,21 @@ module TypeError.KeyframesNonAnimatableProperty where
 
 import Prelude
 
-import Tecton (CSS, content, keyframes, keyframesName, nil, pct, (:=), (?))
+import Tecton
+  ( CSS
+  , KeyframesName(..)
+  , content
+  , keyframes
+  , nil
+  , pct
+  , (:=)
+  , (?)
+  )
 import Tecton.Rule as Rule
 
 css :: CSS
 css = do
-  keyframes (keyframesName "foo") ? do
+  keyframes (KeyframesName "foo") ? do
     pct 0 ? Rule.do
       content := ""
     pct 100 ? Rule.do

src/Tecton.purs

@@ -4,7 +4,7 @@ import Tecton.Internal
   ( CSS
   , CustomAttribute
   , Declarations
-  , KeyframesName
+  , KeyframesName(..)
   , a
   , abbr
   , absolute
@@ -306,7 +306,6 @@ import Tecton.Internal
   , katakanaIroha
   , keepAll
   , keyframes
-  , keyframesName
   , khmer
   , kind
   , label

src/Tecton/Internal.purs

@@ -47,7 +47,7 @@ module Tecton.Internal
   , Inextensible
   , KeyframeBlock
   , Keyframes
-  , KeyframesName
+  , KeyframesName(..)
   , Length
   , LengthPercentage
   , LineName
@@ -554,7 +554,6 @@ module Tecton.Internal
   , katakanaIroha
   , keepAll
   , keyframes
-  , keyframesName
   , khmer
   , kind
   , label
@@ -1821,9 +1820,6 @@ newtype KeyframesName = KeyframesName String
 
 derive newtype instance ToVal KeyframesName
 
-keyframesName :: String -> KeyframesName
-keyframesName = KeyframesName
-
 newtype Keyframes = Keyframes KeyframesName
 
 keyframes :: KeyframesName -> Keyframes

test/AnimationsSpec.purs

@@ -6,7 +6,8 @@ import Prelude
 
 import Data.Tuple.Nested ((/\))
 import Tecton
-  ( all
+  ( KeyframesName(..)
+  , all
   , alternate
   , alternateReverse
   , animationDelay
@@ -34,7 +35,6 @@ import Tecton
   , jumpNone
   , jumpStart
   , keyframes
-  , keyframesName
   , linear
   , media
   , ms
@@ -72,19 +72,19 @@ spec =
 
       "@keyframes foo{0%{width:0}100%{width:500px}}"
         `isRenderedFrom` do
-          keyframes (keyframesName "foo") ? do
+          keyframes (KeyframesName "foo") ? do
             pct 0 ? width := nil
             pct 100 ? width := px 500
 
       "@media all{@keyframes foo{0%,100%{width:0}}}"
         `isRenderedFrom` do
           media all {} ? do
-            keyframes (keyframesName "foo") ? do
+            keyframes (KeyframesName "foo") ? do
               pct 0 /\ pct 100 ? width := nil
 
       "@keyframes foo{0%{width:75%}20%{width:80%}50%{width:100%}}"
         `isRenderedFrom` do
-          keyframes (keyframesName "foo") ? do
+          keyframes (KeyframesName "foo") ? do
             pct 0 ? width := pct 75
             pct 10 @+@ pct 5 @* 2 ? width := pct 80
             pct 100 @/ 2 ? width := pct 100
@@ -101,11 +101,11 @@ spec =
 
       "animation-name:none" `isRenderedFrom` (animationName := none)
 
-      "animation-name:xx" `isRenderedFrom` (animationName := keyframesName "xx")
+      "animation-name:xx" `isRenderedFrom` (animationName := KeyframesName "xx")
 
       "animation-name:foo,none,bar"
         `isRenderedFrom`
-          (animationName := keyframesName "foo" /\ none /\ keyframesName "bar")
+          (animationName := KeyframesName "foo" /\ none /\ KeyframesName "bar")
 
     describe "animation-duration property" do