@@ -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