Skip to content

Commit 2c04755

Browse files
committed
fixup! Implement config parsing from env
Fix indentation, apply new stylish-haskell.
1 parent b7b18e1 commit 2c04755

File tree

1 file changed

+4
-4
lines changed
  • code/config/lib/Loot/Config

1 file changed

+4
-4
lines changed

code/config/lib/Loot/Config/Env.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ Imagine you have the following configuration:
1717
type Options =
1818
'[ "appname" ::: Text
1919
, "db" ::<
20-
'[ "username" ::: Text
20+
'[ "username" ::: Text
2121
, "password" ::: Text
2222
]
2323
]
@@ -57,7 +57,7 @@ module Loot.Config.Env
5757

5858
import Control.Monad.Except (Except, runExcept, throwError)
5959
import Data.Char (toLower)
60-
import Data.Vinyl (Rec ((:&), RNil))
60+
import Data.Vinyl (Rec (RNil, (:&)))
6161
import Fmt (Buildable (..), pretty, (+|), (|+))
6262
import GHC.TypeLits (KnownSymbol, symbolVal)
6363
import System.Environment (getEnvironment)
@@ -68,9 +68,9 @@ import qualified Data.List.NonEmpty as NE
6868
import qualified Data.Map as Map
6969
import qualified Data.Text as T
7070

71-
import Loot.Config.Record ((::+), (::-), (:::), (::<), ConfigKind (Partial), ConfigRec,
71+
import Loot.Config.Record (ConfigKind (Partial), ConfigRec,
7272
Item (ItemBranchP, ItemOptionP, ItemSub, ItemSumP), ItemKind,
73-
SumSelection)
73+
SumSelection, (::+), (::-), (:::), (::<))
7474

7575
-- | A complete description of parsing error.
7676
data EnvParseError = EnvParseError

0 commit comments

Comments
 (0)