From 5280fee913145ce5483ca35e9770f12981a4fd19 Mon Sep 17 00:00:00 2001 From: joneshf Date: Tue, 28 Aug 2018 06:33:01 -0700 Subject: [PATCH 1/3] List exports explicitly Part of the change to 0.19.0 requires this. --- src/Tagged.elm | 17 ++++++++++++++++- src/Tagged/Dict.elm | 32 ++++++++++++++++++++++++++++++-- src/Tagged/Set.elm | 26 ++++++++++++++++++++++++-- 3 files changed, 70 insertions(+), 5 deletions(-) diff --git a/src/Tagged.elm b/src/Tagged.elm index b225db9..9eba8ae 100644 --- a/src/Tagged.elm +++ b/src/Tagged.elm @@ -1,4 +1,17 @@ -module Tagged exposing (..) +module Tagged + exposing + ( Tagged(..) + , andMap + , andThen + , ap + , bind + , extend + , map + , map2 + , retag + , tag + , untag + ) {-| A module that allows you to "tag" a value. @@ -62,6 +75,7 @@ ap : Tagged tag (oldValue -> newValue) -> Tagged tag oldValue -> Tagged tag newV ap (Tagged f) (Tagged x) = Tagged (f x) + {-| Useful for composing functions together in a pipeline: foo = @@ -93,6 +107,7 @@ andThen : (oldValue -> Tagged tag newValue) -> Tagged tag oldValue -> Tagged tag andThen f (Tagged x) = f x + {-| Useful for restricting the tag created in a polymorphic function. -} bind : Tagged tag oldValue -> (oldValue -> Tagged tag newValue) -> Tagged tag newValue diff --git a/src/Tagged/Dict.elm b/src/Tagged/Dict.elm index 16b1844..5047ebc 100644 --- a/src/Tagged/Dict.elm +++ b/src/Tagged/Dict.elm @@ -1,4 +1,32 @@ -module Tagged.Dict exposing (..) +module Tagged.Dict + exposing + ( TaggedDict + , diff + , empty + , filter + , foldl + , foldr + , fromList + , fromUntaggedList + , get + , insert + , intersect + , isEmpty + , keys + , map + , member + , merge + , partition + , remove + , singleton + , size + , toList + , toUntaggedList + , union + , untaggedKeys + , update + , values + ) {-| A module that allows tagging dictionaries, while maintaining an API parallel to `Dict`. @@ -218,7 +246,7 @@ partition f dict = ( dict1, dict2 ) = Dict.partition (f << tag) (untag dict) in - ( tag dict1, tag dict2 ) + ( tag dict1, tag dict2 ) {-| Combine two dictionaries. If there is a collision, preference is given to the first dictionary. diff --git a/src/Tagged/Set.elm b/src/Tagged/Set.elm index b2003ec..4f4108d 100644 --- a/src/Tagged/Set.elm +++ b/src/Tagged/Set.elm @@ -1,4 +1,26 @@ -module Tagged.Set exposing (..) +module Tagged.Set + exposing + ( TaggedSet + , diff + , empty + , filter + , foldl + , foldr + , fromList + , fromUntaggedList + , insert + , intersect + , isEmpty + , map + , member + , partition + , remove + , singleton + , size + , toList + , toUntaggedList + , union + ) {-| A module that allows tagging sets, while maintaining an API parallel to `Set`. @@ -183,7 +205,7 @@ partition f set = ( set1, set2 ) = Set.partition (f << tag) (untag set) in - ( tag set1, tag set2 ) + ( tag set1, tag set2 ) {-| Get the union of two sets. Keep all values. From 53f8548f75749e4236c728d7425e753c41244407 Mon Sep 17 00:00:00 2001 From: "Restyled.io" Date: Tue, 28 Aug 2018 13:45:07 +0000 Subject: [PATCH 2/3] Restyled --- src/Tagged/Dict.elm | 2 +- src/Tagged/Set.elm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Tagged/Dict.elm b/src/Tagged/Dict.elm index 5047ebc..9a43b56 100644 --- a/src/Tagged/Dict.elm +++ b/src/Tagged/Dict.elm @@ -246,7 +246,7 @@ partition f dict = ( dict1, dict2 ) = Dict.partition (f << tag) (untag dict) in - ( tag dict1, tag dict2 ) + ( tag dict1, tag dict2 ) {-| Combine two dictionaries. If there is a collision, preference is given to the first dictionary. diff --git a/src/Tagged/Set.elm b/src/Tagged/Set.elm index 4f4108d..93d8077 100644 --- a/src/Tagged/Set.elm +++ b/src/Tagged/Set.elm @@ -205,7 +205,7 @@ partition f set = ( set1, set2 ) = Set.partition (f << tag) (untag set) in - ( tag set1, tag set2 ) + ( tag set1, tag set2 ) {-| Get the union of two sets. Keep all values. From 720f24f1b219b550fe8bde5785bee72562b1753b Mon Sep 17 00:00:00 2001 From: joneshf Date: Tue, 28 Aug 2018 06:49:27 -0700 Subject: [PATCH 3/3] Cache dependencies Maybe elm finally figured out how to deal with dependencies properly? Here's hoping! --- .travis.yml | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/.travis.yml b/.travis.yml index 8fad823..9245e64 100644 --- a/.travis.yml +++ b/.travis.yml @@ -1,3 +1,7 @@ +cache: + directories: + - ${HOME}/.elm + language: node_js node_js: