fourmolu

Author: chris-martin

.restyled.yaml

@@ -8,6 +8,5 @@ restylers_version: dev
 
 restylers:
   - hlint
-  - stylish-haskell
-  - brittany
+  - fourmolu
   - "*"

.stylish-haskell.yaml

@@ -1,8 +1,7 @@
 {-# LANGUAGE CPP #-}
 
 module Data.Aeson.Compat
-  (
-    -- * Key
+  ( -- * Key
     Key
   , fromText
   , toText
@@ -18,13 +17,13 @@ module Data.Aeson.Compat
 
     -- * Etc.
   , Pair
-  , Value(Object)
+  , Value (Object)
   , Object
   , object
   , (.=)
   ) where
 
-import Data.Aeson.Types (Pair, Value(Object), Object, object, (.=))
+import Data.Aeson.Types (Object, Pair, Value (Object), object, (.=))
 #if MIN_VERSION_aeson(2, 0, 0)
 import Data.Aeson.Key (Key, fromText, toText)
 import Data.Aeson.KeyMap (KeyMap, empty, fromList, null, singleton, toList, unionWith)

bugsnag/src/Data/Aeson/Compat.hs

@@ -2,7 +2,7 @@
 
 -- | Re-exports the @Network.Bugsnag@ provided by @bugsnag-hs@ as @Data.Bugsnag@
 module Data.Bugsnag
-    ( module Network.Bugsnag
-    ) where
+  ( module Network.Bugsnag
+  ) where
 
 import "bugsnag-hs" Network.Bugsnag

bugsnag/src/Data/Bugsnag.hs

@@ -1,7 +1,7 @@
 module Data.Bugsnag.Settings
-    ( Settings(..)
-    , defaultSettings
-    ) where
+  ( Settings (..)
+  , defaultSettings
+  ) where
 
 import Prelude
 
@@ -12,46 +12,42 @@ import Network.Bugsnag.CodeIndex
 import Network.HTTP.Client (HttpException)
 
 data Settings = Settings
-    { settings_apiKey :: ApiKey
-    -- ^ Your Integration API Key
-    , settings_appVersion :: Maybe Text
-    -- ^ The version of your application
-    --
-    -- Marking bugs as Fixed and having them auto-reopen in new versions
-    -- requires you set this.
-    --
-    , settings_releaseStage :: Text
-    -- ^ The current release-stage, Production by default
-    , settings_enabledReleaseStages :: [Text]
-    -- ^ Which release-stages to notify in. Only Production by default
-    , settings_beforeNotify :: BeforeNotify
-    -- ^ Modify any events before they are sent
-    --
-    -- For example to attach a user, or set the context.
-    --
-    , settings_ignoreException :: Exception -> Bool
-    -- ^ Exception filtering
-    --
-    -- Functions like 'notifyBugsnag' will do nothing with exceptions that pass
-    -- this predicate. N.B. Something lower-level, like 'reportError' won't be
-    -- aware of this.
-    --
-    , settings_onNotifyException :: HttpException -> IO ()
-    -- ^ How to handle an exception reporting error events
-    --
-    -- Default is to ignore.
-    --
-    , settings_codeIndex :: Maybe CodeIndex
-    -- ^ A 'CodeIndex' built at compile-time from project sources
-    --
-    -- If set, this will be used to update StackFrames to include lines of
-    -- source code context as read out of this value. N.B. using this means
-    -- loading and keeping the source code for the entire project in memory.
-    --
-    }
+  { settings_apiKey :: ApiKey
+  -- ^ Your Integration API Key
+  , settings_appVersion :: Maybe Text
+  -- ^ The version of your application
+  --
+  -- Marking bugs as Fixed and having them auto-reopen in new versions
+  -- requires you set this.
+  , settings_releaseStage :: Text
+  -- ^ The current release-stage, Production by default
+  , settings_enabledReleaseStages :: [Text]
+  -- ^ Which release-stages to notify in. Only Production by default
+  , settings_beforeNotify :: BeforeNotify
+  -- ^ Modify any events before they are sent
+  --
+  -- For example to attach a user, or set the context.
+  , settings_ignoreException :: Exception -> Bool
+  -- ^ Exception filtering
+  --
+  -- Functions like 'notifyBugsnag' will do nothing with exceptions that pass
+  -- this predicate. N.B. Something lower-level, like 'reportError' won't be
+  -- aware of this.
+  , settings_onNotifyException :: HttpException -> IO ()
+  -- ^ How to handle an exception reporting error events
+  --
+  -- Default is to ignore.
+  , settings_codeIndex :: Maybe CodeIndex
+  -- ^ A 'CodeIndex' built at compile-time from project sources
+  --
+  -- If set, this will be used to update StackFrames to include lines of
+  -- source code context as read out of this value. N.B. using this means
+  -- loading and keeping the source code for the entire project in memory.
+  }
 
 defaultSettings :: Text -> Settings
-defaultSettings k = Settings
+defaultSettings k =
+  Settings
     { settings_apiKey = apiKey k
     , settings_appVersion = Nothing
     , settings_releaseStage = "production"

bugsnag/src/Data/Bugsnag/Settings.hs

@@ -1,12 +1,11 @@
 module Network.Bugsnag
-    (
-    -- * Notifying
-      notifyBugsnag
-    , notifyBugsnagWith
+  ( -- * Notifying
+    notifyBugsnag
+  , notifyBugsnagWith
 
     -- * Modifying events on notification
-    , module Network.Bugsnag.BeforeNotify
-    ) where
+  , module Network.Bugsnag.BeforeNotify
+  ) where
 
 import Network.Bugsnag.BeforeNotify
 import Network.Bugsnag.Notify

bugsnag/src/Network/Bugsnag.hs

@@ -1,30 +1,30 @@
 module Network.Bugsnag.BeforeNotify
-    ( BeforeNotify
-    , beforeNotify
-    , runBeforeNotify
+  ( BeforeNotify
+  , beforeNotify
+  , runBeforeNotify
 
     -- * Modifying the underlying Exceptions
-    , updateExceptions
-    , filterExceptions
-    , updateStackFrames
-    , filterStackFrames
-    , setStackFramesCode
-    , setStackFramesInProject
-    , setStackFramesInProjectByFile
-    , setStackFramesInProjectBy
+  , updateExceptions
+  , filterExceptions
+  , updateStackFrames
+  , filterStackFrames
+  , setStackFramesCode
+  , setStackFramesInProject
+  , setStackFramesInProjectByFile
+  , setStackFramesInProjectBy
 
     -- * Modifying the Event
-    , updateEvent
-    , updateEventFromOriginalException
-    , setGroupingHash
-    , setGroupingHashBy
-    , setDevice
-    , setContext
-    , setRequest
-    , setWarningSeverity
-    , setErrorSeverity
-    , setInfoSeverity
-    ) where
+  , updateEvent
+  , updateEventFromOriginalException
+  , setGroupingHash
+  , setGroupingHashBy
+  , setDevice
+  , setContext
+  , setRequest
+  , setWarningSeverity
+  , setErrorSeverity
+  , setInfoSeverity
+  ) where
 
 import Prelude
 
@@ -45,57 +45,56 @@ import Network.Bugsnag.StackFrame
 -- 'BeforeNotify' implements 'Semigroup' and 'Monoid', which means the /do
 -- nothing/ 'BeforeNotify' is 'mempty' and two 'BeforeNotify's @doThis@ then
 -- @doThat@ can be implemented as @doThat <> doThis@.
---
 newtype BeforeNotify = BeforeNotify
-    { _unBeforeNotify :: forall e. Exception.Exception e => e -> Event -> Event
-    }
+  { _unBeforeNotify :: forall e. Exception.Exception e => e -> Event -> Event
+  }
 
 instance Semigroup BeforeNotify where
-    BeforeNotify f <> BeforeNotify g = BeforeNotify $ \e -> f e . g e
+  BeforeNotify f <> BeforeNotify g = BeforeNotify $ \e -> f e . g e
 
 instance Monoid BeforeNotify where
-    mempty = BeforeNotify $ const id
+  mempty = BeforeNotify $ const id
 
 beforeNotify
-    :: (forall e . Exception.Exception e => e -> Event -> Event)
-    -> BeforeNotify
+  :: (forall e. Exception.Exception e => e -> Event -> Event)
+  -> BeforeNotify
 beforeNotify = BeforeNotify
 
 runBeforeNotify :: Exception.Exception e => BeforeNotify -> e -> Event -> Event
 runBeforeNotify (BeforeNotify f) = f
 
 updateExceptions :: (Exception -> Exception) -> BeforeNotify
-updateExceptions f = updateEvent
-    $ \event -> event { event_exceptions = map f $ event_exceptions event }
+updateExceptions f = updateEvent $
+  \event -> event {event_exceptions = map f $ event_exceptions event}
 
 filterExceptions :: (Exception -> Bool) -> BeforeNotify
 filterExceptions p = updateEvent $ \event ->
-    event { event_exceptions = filter p $ event_exceptions event }
+  event {event_exceptions = filter p $ event_exceptions event}
 
 updateStackFrames :: (StackFrame -> StackFrame) -> BeforeNotify
-updateStackFrames f = updateExceptions
-    $ \e -> e { exception_stacktrace = map f $ exception_stacktrace e }
+updateStackFrames f = updateExceptions $
+  \e -> e {exception_stacktrace = map f $ exception_stacktrace e}
 
 filterStackFrames :: (StackFrame -> Bool) -> BeforeNotify
-filterStackFrames p = updateExceptions
-    $ \e -> e { exception_stacktrace = filter p $ exception_stacktrace e }
+filterStackFrames p = updateExceptions $
+  \e -> e {exception_stacktrace = filter p $ exception_stacktrace e}
 
 setStackFramesCode :: CodeIndex -> BeforeNotify
 setStackFramesCode =
-    (setStackFramesInProjectBy (isJust . stackFrame_code) <>)
-        . updateStackFrames
-        . attachBugsnagCode
+  (setStackFramesInProjectBy (isJust . stackFrame_code) <>)
+    . updateStackFrames
+    . attachBugsnagCode
 
 setStackFramesInProject :: Bool -> BeforeNotify
 setStackFramesInProject = setStackFramesInProjectBy . const
 
 setStackFramesInProjectByFile :: (FilePath -> Bool) -> BeforeNotify
 setStackFramesInProjectByFile f =
-    setStackFramesInProjectBy $ f . unpack . stackFrame_file
+  setStackFramesInProjectBy $ f . unpack . stackFrame_file
 
 setStackFramesInProjectBy :: (StackFrame -> Bool) -> BeforeNotify
 setStackFramesInProjectBy f =
-    updateStackFrames $ \sf -> sf { stackFrame_inProject = Just $ f sf }
+  updateStackFrames $ \sf -> sf {stackFrame_inProject = Just $ f sf}
 
 updateEvent :: (Event -> Event) -> BeforeNotify
 updateEvent f = beforeNotify $ \_e event -> f event
@@ -125,39 +124,39 @@ updateEvent f = beforeNotify $ \_e event -> f event
 -- If the cast fails, the event is unchanged.
 --
 -- The cast will match either @e@ or @'AnnotatedException' e@.
---
 updateEventFromOriginalException
-    :: forall e . Exception.Exception e => (e -> BeforeNotify) -> BeforeNotify
+  :: forall e. Exception.Exception e => (e -> BeforeNotify) -> BeforeNotify
 updateEventFromOriginalException f = beforeNotify $ \e event ->
-    let bn = maybe mempty (f . Annotated.exception) $ Exception.fromException $ Exception.toException e
-    in runBeforeNotify bn e event
+  let bn =
+        maybe mempty (f . Annotated.exception) $
+          Exception.fromException $
+            Exception.toException e
+  in  runBeforeNotify bn e event
 
 setGroupingHash :: Text -> BeforeNotify
 setGroupingHash hash = setGroupingHashBy $ const $ Just hash
 
 setGroupingHashBy :: (Event -> Maybe Text) -> BeforeNotify
 setGroupingHashBy f =
-    updateEvent $ \event -> event { event_groupingHash = f event }
+  updateEvent $ \event -> event {event_groupingHash = f event}
 
 -- | Set the Event's Context
 setContext :: Text -> BeforeNotify
 setContext context =
-    updateEvent $ \event -> event { event_context = Just context }
+  updateEvent $ \event -> event {event_context = Just context}
 
 -- | Set the Event's Request
 --
 -- See 'bugsnagRequestFromWaiRequest'
---
 setRequest :: Request -> BeforeNotify
 setRequest request =
-    updateEvent $ \event -> event { event_request = Just request }
+  updateEvent $ \event -> event {event_request = Just request}
 
 -- | Set the Event's Device
 --
 -- See 'bugsnagDeviceFromWaiRequest'
---
 setDevice :: Device -> BeforeNotify
-setDevice device = updateEvent $ \event -> event { event_device = Just device }
+setDevice device = updateEvent $ \event -> event {event_device = Just device}
 
 -- | Set to 'ErrorSeverity'
 setErrorSeverity :: BeforeNotify
@@ -173,4 +172,4 @@ setInfoSeverity = setSeverity infoSeverity
 
 setSeverity :: Severity -> BeforeNotify
 setSeverity severity =
-    updateEvent $ \event -> event { event_severity = Just severity }
+  updateEvent $ \event -> event {event_severity = Just severity}