@@ -21,7 +21,7 @@ module TypedEnv
2121import  Prelude 
2222import  Data.Either  (Either , note )
2323import  Data.Generic.Rep  (class  Generic )
24- import  Data.Generic.Rep. Show  (genericShow )
24+ import  Data.Show.Generic   (genericShow )
2525import  Data.Int  (fromString ) as  Int 
2626import  Data.Maybe  (Maybe (..))
2727import  Data.Number  (fromString ) as  Number 
@@ -30,7 +30,7 @@ import Data.String.Common (toLower)
3030import  Data.Symbol  (class  IsSymbol , SProxy (..), reflectSymbol )
3131import  Foreign.Object  (Object , lookup )
3232import  Prim.Row  (class  Cons , class  Lacks ) as  Row 
33- import  Prim.RowList  (class  RowToList , kind   RowList , Cons , Nil )
33+ import  Prim.RowList  (class  RowToList , RowList , Cons , Nil )
3434import  Record  (insert ) as  Record 
3535import  Type.Data.RowList  (RLProxy (..))
3636import  Type.Equality  (class  TypeEquals , to )
@@ -66,6 +66,7 @@ envErrorMessage = case _ of
6666  EnvParseError  var  ->  " The variable \" "   <> var <> " \"  was formatted incorrectly." 
6767
6868--  | Useful for a type alias representing a resolved environment
69+ type  Resolved  :: forall  k . Symbol  ->  k  ->  k 
6970type  Resolved  (name  :: Symbol ) ty  =  ty 
7071
7172--  | Parses a `String` value to the specified type.
@@ -110,7 +111,7 @@ else instance readValueRequired :: ParseValue a => ReadValue a where
110111    >>= (parseValue >>> note (EnvParseError  name))
111112
112113--  | Transforms a row of environment variable specifications to a record.
113- class  ReadEnv  (e  :: #  Type ) (r  :: #  Type ) where 
114+ class  ReadEnv  (e  :: Row  Type ) (r  :: Row  Type ) where 
114115  readEnv  ::  forall  proxy . proxy  e  ->  Object  String  ->  Either  EnvError  (Record  r )
115116
116117instance  readEnvImpl  ::
@@ -123,7 +124,7 @@ instance readEnvImpl ::
123124    readEnv _ = readEnvFields (RLProxy  ::  RLProxy  el ) (RLProxy  ::  RLProxy  rl )
124125
125126--  | Transforms a list of environment variable specifications to a record.
126- class  ReadEnvFields  (el  :: RowList ) (rl  :: RowList ) (r  :: #  Type ) | el  ->  rl  where 
127+ class  ReadEnvFields  (el  :: RowList   Type ) (rl  :: RowList   Type ) (r  :: Row  Type ) | el  ->  rl  where 
127128  readEnvFields
128129    ::  forall  proxy 
129130     . proxy  el 
0 commit comments