Whitespace

src/Graphics/Vty/Config.hs

@@ -173,19 +173,19 @@ instance Semigroup Config where
         }
 
 instance Monoid Config where
-    mempty = Config
+    mempty =
-        { vmin         = Nothing
+        Config { vmin = Nothing
-        , vtime        = Nothing
+               , vtime = Nothing
-        , mouseMode    = Nothing
+               , mouseMode = Nothing
-        , bracketedPasteMode = Nothing
+               , bracketedPasteMode = Nothing
-        , debugLog     = mempty
+               , debugLog = mempty
-        , inputMap     = mempty
+               , inputMap = mempty
-        , inputFd     = Nothing
+               , inputFd = Nothing
-        , outputFd    = Nothing
+               , outputFd = Nothing
-        , termName     = Nothing
+               , termName = Nothing
-        , termWidthMaps = []
+               , termWidthMaps = []
-        , allowCustomUnicodeWithTables = True
+               , allowCustomUnicodeWithTables = True
-        }
+               }
 #if !(MIN_VERSION_base(4,11,0))
     mappend = (<>)
 #endif