Reformat with fourmolu

Using previously-added configuration and `fourmolu -i .`
Note that we exclude the test-cases
(`./{hoogle,html-hypsrc,latex}-test`) as they are sensitive to
formatting.

Author: bgamari

haddock-api/src/Documentation/Haddock.hs

@@ -1,4 +1,7 @@
 -----------------------------------------------------------------------------
+
+-----------------------------------------------------------------------------
+
 -- |
 -- Module      :  Documentation.Haddock
 -- Copyright   :  (c) David Waern 2010
@@ -10,79 +13,79 @@
 --
 -- The Haddock API: A rudimentary, highly experimental API exposing some of
 -- the internals of Haddock. Don't expect it to be stable.
------------------------------------------------------------------------------
-module Documentation.Haddock (
-
-  -- * Interface
-  Interface(..),
-  InstalledInterface(..),
-  toInstalledIface,
-  createInterfaces,
-  processModules,
+module Documentation.Haddock
+  ( -- * Interface
+    Interface (..)
+  , InstalledInterface (..)
+  , toInstalledIface
+  , createInterfaces
+  , processModules
 
-  -- * Export items & declarations
-  ExportItem(..),
-  DocForDecl,
-  FnArgsDoc,
+    -- * Export items & declarations
+  , ExportItem (..)
+  , DocForDecl
+  , FnArgsDoc
 
-  -- * Cross-referencing
-  LinkEnv,
-  DocName(..),
+    -- * Cross-referencing
+  , LinkEnv
+  , DocName (..)
 
-  -- * Instances
-  DocInstance,
-  InstHead,
+    -- * Instances
+  , DocInstance
+  , InstHead
 
-  -- * Documentation comments
-  Doc,
-  MDoc,
-  DocH(..),
-  Example(..),
-  Hyperlink(..),
-  DocMarkup,
-  DocMarkupH(..),
-  Documentation(..),
-  ArgMap,
-  WarningMap,
-  DocMap,
-  HaddockModInfo(..),
-  markup,
+    -- * Documentation comments
+  , Doc
+  , MDoc
+  , DocH (..)
+  , Example (..)
+  , Hyperlink (..)
+  , DocMarkup
+  , DocMarkupH (..)
+  , Documentation (..)
+  , ArgMap
+  , WarningMap
+  , DocMap
+  , HaddockModInfo (..)
+  , markup
 
-  -- * Interface files
-  InterfaceFile(..),
-  readInterfaceFile,
-  freshNameCache,
+    -- * Interface files
+  , InterfaceFile (..)
+  , readInterfaceFile
+  , freshNameCache
 
-  -- * Flags and options
-  Flag(..),
-  DocOption(..),
+    -- * Flags and options
+  , Flag (..)
+  , DocOption (..)
 
-  -- * Error handling
-  HaddockException(..),
+    -- * Error handling
+  , HaddockException (..)
 
-  -- * Program entry point
-  haddock,
-  haddockWithGhc,
-  getGhcDirs,
-  withGhc
-) where
+    -- * Program entry point
+  , haddock
+  , haddockWithGhc
+  , getGhcDirs
+  , withGhc
+  ) where
 
 import Documentation.Haddock.Markup (markup)
-import Haddock.InterfaceFile
+import Haddock
 import Haddock.Interface
-import Haddock.Types
+import Haddock.InterfaceFile
 import Haddock.Options
-import Haddock
-
+import Haddock.Types
 
 -- | Create 'Interface' structures from a given list of Haddock command-line
 -- flags and file or module names (as accepted by 'haddock' executable).  Flags
 -- that control documentation generation or show help or version information
 -- are ignored.
 createInterfaces
-  :: [Flag]         -- ^ A list of command-line flags
-  -> [String]       -- ^ File or module names
-  -> IO [Interface] -- ^ Resulting list of interfaces
+  :: [Flag]
+  -- ^ A list of command-line flags
+  -> [String]
+  -- ^ File or module names
+  -> IO [Interface]
+  -- ^ Resulting list of interfaces
 createInterfaces flags modules = do
   (_, ifaces, _) <- withGhc flags (readPackagesAndProcessModules flags modules)
   return ifaces

haddock-api/src/Haddock/Backends/HaddockDB.hs

@@ -1,4 +1,7 @@
 -----------------------------------------------------------------------------
+
+-----------------------------------------------------------------------------
+
 -- |
 -- Module      :  Haddock.Backends.HaddockDB
 -- Copyright   :  (c) Simon Marlow 2003
@@ -7,7 +10,6 @@
 -- Maintainer  :  haddock@projects.haskell.org
 -- Stability   :  experimental
 -- Portability :  portable
------------------------------------------------------------------------------
 module Haddock.Backends.HaddockDB (ppDocBook) where
 
 {-
@@ -23,6 +25,7 @@ import Text.PrettyPrint
 
 ppDocBook :: a
 ppDocBook = error "not working"
+
 {-
 ppDocBook :: FilePath -> [(Module, Interface)] -> String
 ppDocBook odir mods = render (ppIfaces mods)