We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9a4f51d commit 39b04b2Copy full SHA for 39b04b2
studio-common/src/Data/Auth.purs
@@ -1,8 +1,8 @@
1
module Data.Auth where
2
3
import Prelude
4
-import Data.Foldable (elem)
5
-import Data.Newtype (class Newtype, over, un)
+import Data.Foldable (class Foldable, elem)
+import Data.Newtype (class Newtype, un)
6
import Data.Set as Set
7
import Data.Set (Set)
8
@@ -30,6 +30,7 @@ instance monoidRoles :: Monoid Roles where
30
instance showRoles :: Show Roles where
31
show (Roles x) = show x
32
33
+rolesFromFoldable :: forall t. Foldable t => t Role -> Roles
34
rolesFromFoldable = Roles <<< Set.fromFoldable
35
36
rolesElem :: Role -> Roles -> Boolean
0 commit comments