Style

ff-notes · Mar 7, 2020 · bdb0507 · bdb0507
1 parent 917823c
commit bdb0507
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/ff-core/lib/FF/Config.hs b/ff-core/lib/FF/Config.hs
@@ -28,16 +28,17 @@ newtype ConfigUI = ConfigUI
     deriving (Eq, Show)
 
 emptyConfig :: Config
-emptyConfig = Config {dataDir = Nothing, externalEditor = Nothing, ui = defaultConfigUI}
+emptyConfig =
+    Config{dataDir = Nothing, externalEditor = Nothing, ui = defaultConfigUI}
 
 defaultConfigUI :: ConfigUI
 defaultConfigUI = ConfigUI {shuffle = False}
 
 instance FromJSON Config where
     parseJSON = withObject "Config" $ \obj -> do
-        dataDir <- obj .:? "dataDir"
+        dataDir        <- obj .:? "dataDir"
         externalEditor <- obj .:? "externalEditor"
-        ui      <- obj .:? "ui" .!= defaultConfigUI
+        ui             <- obj .:? "ui" .!= defaultConfigUI
         pure Config{..}
 
 deriveJSON   defaultOptions ''ConfigUI