Skip to content

Commit

Permalink
Update bower deps
Browse files Browse the repository at this point in the history
  • Loading branch information
danieljharvey committed Jul 29, 2019
1 parent 5bf080d commit 121b2d2
Show file tree
Hide file tree
Showing 4 changed files with 19 additions and 4 deletions.
14 changes: 13 additions & 1 deletion bower.json
Original file line number Diff line number Diff line change
Expand Up @@ -20,5 +20,17 @@
"bower_components",
"test",
"tests"
]
],
"dependencies": {
"purescript-console": "^4.2.0",
"purescript-effect": "^2.0.1",
"purescript-foreign": "^5.0.0",
"purescript-generics-rep": "^6.1.1",
"purescript-ordered-collections": "^1.6.1",
"purescript-prelude": "^4.1.1",
"purescript-refs": "^4.1.0",
"purescript-test-unit": "^15.0.0",
"purescript-unordered-collections": "^1.8.2",
"purescript-cssom": "^0.0.2"
}
}
2 changes: 1 addition & 1 deletion src/Stylesheet/Internal/AddStyle.purs
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@ import Prelude (discard, pure)
import Effect (Effect)
import Data.Foldable (foldMap)

import Stylesheet.Types.Stylesheet (Stylesheet(..), addVirtualStylesheet)
import Stylesheet.Types.Stylesheet (Stylesheet, addVirtualStylesheet)
import Stylesheet.Types.CSSRuleSet (CSSRuleSet)
import Stylesheet.Types.Primitives (CSSSelector)
import Stylesheet.Types.VirtualStylesheet
Expand Down
2 changes: 1 addition & 1 deletion src/Stylesheet/Internal/DomActions.purs
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
module Stylesheet.Internal.DomActions where

import Prelude
import Prelude (Unit, bind, discard, pure, show, unit, (<$>), (<>), (==))
import Data.Maybe (Maybe(..))
import Data.Traversable (find, traverse, traverse_)
import Effect (Effect)
Expand Down
5 changes: 4 additions & 1 deletion src/Stylesheet/Types/CSSRuleSet.purs
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ module Stylesheet.Types.CSSRuleSet where
import Prelude (class Monoid, class Semigroup, map, pure, ($), (<<<))
import Stylesheet.Types.Primitives

-- | CSSRuleSet is what we build up for a type
-- | CSSRuleSet is what we build up for a style
newtype CSSRuleSet p
= CSSRuleSet (Array (CSSRule p))

Expand All @@ -15,12 +15,15 @@ data CSSRule p
| Lens (p -> CSSText)
| MediaQuery MediaQueryText (CSSRuleSet p)

-- | Create a rule that takes no props
str :: forall props. String -> CSSRuleSet props
str = CSSRuleSet <<< pure <<< Const <<< CSSText

-- | Create a rule that receives the props
fun :: forall props. (props -> String) -> CSSRuleSet props
fun = CSSRuleSet <<< pure <<< Lens <<< (map CSSText)

-- | Create a media query
media :: forall props. String -> CSSRuleSet props -> CSSRuleSet props
media queryStr subStyle
= CSSRuleSet <<< pure $ MediaQuery (MediaQueryText queryStr) subStyle
Expand Down

0 comments on commit 121b2d2

Please sign in to comment.