glabrous 0.3.0 → 0.3.1
raw patch · 2 files changed
+7/−7 lines, 2 filesdep ~glabrousdep ~hspecPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: glabrous, hspec
API changes (from Hackage documentation)
- Text.Glabrous: Context :: HashMap Text Text -> Context
+ Text.Glabrous: Context :: !(HashMap Text Text) -> Context
- Text.Glabrous: [variables] :: Context -> HashMap Text Text
+ Text.Glabrous: [variables] :: Context -> !(HashMap Text Text)
- Text.Glabrous.Types: Context :: HashMap Text Text -> Context
+ Text.Glabrous.Types: Context :: !(HashMap Text Text) -> Context
- Text.Glabrous.Types: [variables] :: Context -> HashMap Text Text
+ Text.Glabrous.Types: [variables] :: Context -> !(HashMap Text Text)
Files
- glabrous.cabal +3/−3
- src/Text/Glabrous/Types.hs +4/−4
glabrous.cabal view
@@ -1,5 +1,5 @@ name: glabrous-version: 0.3.0+version: 0.3.1 cabal-version: >=1.10 build-type: Simple license: BSD3@@ -48,8 +48,8 @@ base >=4.8 && <5, directory >1.2 && <1.4, either ==4.4.*,- glabrous >=0.3.0 && <0.4,- hspec >=2.1.10 && <2.4,+ glabrous >=0.3.1 && <0.4,+ hspec >=2.1.10 && <2.5, text ==1.2.*, unordered-containers ==0.2.* default-language: Haskell2010
src/Text/Glabrous/Types.hs view
@@ -27,7 +27,7 @@ data Context = Context- { variables :: H.HashMap T.Text T.Text }+ { variables :: !(H.HashMap T.Text T.Text) } deriving (Eq, Show) instance ToJSON Context where@@ -36,13 +36,13 @@ instance FromJSON Context where parseJSON (Object o) = return- Context { variables = H.fromList $ (\(k,String v) -> (k,v)) <$> H.toList o }- parseJSON _ = fail "expected an object"+ Context { variables = H.fromList ((\(k,String v) -> (k,v)) <$> H.toList o) }+ parseJSON _ = fail "expected an object" type Tag = T.Text data Result = Final !T.Text- | Partial { template :: !Template , context :: !Context }+ | Partial { template :: !Template, context :: !Context } deriving (Eq, Show)