@@ -17,7 +17,7 @@ Imagine you have the following configuration:
17
17
type Options =
18
18
'[ "appname" ::: Text
19
19
, "db" ::<
20
- '[ "username" ::: Text
20
+ '[ "username" ::: Text
21
21
, "password" ::: Text
22
22
]
23
23
]
@@ -57,7 +57,7 @@ module Loot.Config.Env
57
57
58
58
import Control.Monad.Except (Except , runExcept , throwError )
59
59
import Data.Char (toLower )
60
- import Data.Vinyl (Rec ((:&) , RNil ))
60
+ import Data.Vinyl (Rec (RNil , (:&) ))
61
61
import Fmt (Buildable (.. ), pretty , (+|) , (|+) )
62
62
import GHC.TypeLits (KnownSymbol , symbolVal )
63
63
import System.Environment (getEnvironment )
@@ -68,9 +68,9 @@ import qualified Data.List.NonEmpty as NE
68
68
import qualified Data.Map as Map
69
69
import qualified Data.Text as T
70
70
71
- import Loot.Config.Record ((::+) , (::-) , (:::) , (::<) , ConfigKind (Partial ), ConfigRec ,
71
+ import Loot.Config.Record (ConfigKind (Partial ), ConfigRec ,
72
72
Item (ItemBranchP , ItemOptionP , ItemSub , ItemSumP ), ItemKind ,
73
- SumSelection )
73
+ SumSelection , (::+) , (::-) , (:::) , (::<) )
74
74
75
75
-- | A complete description of parsing error.
76
76
data EnvParseError = EnvParseError
0 commit comments