Merge pull request #2 from haskell-works/newhoggy/delete-RenderedError

Delete `RenderedError`
haskell-works · Nov 3, 2024 · bc8a5e1 · bc8a5e1
2 parents f70760a + 7c9eb2b
commit bc8a5e1
Show file tree

Hide file tree

Showing 6 changed files with 0 additions and 64 deletions.
diff --git a/hw-prelude.cabal b/hw-prelude.cabal
@@ -90,7 +90,6 @@ library
                         HaskellWorks.Error.Types
                         HaskellWorks.Error.Types.All
                         HaskellWorks.Error.Types.GenericError
-                        HaskellWorks.Error.Types.RenderedError
                         HaskellWorks.Error.Types.TimedOut
                         HaskellWorks.IO.Network.NamedPipe
                         HaskellWorks.IO.Network.Port

diff --git a/src/HaskellWorks/Error/Types.hs b/src/HaskellWorks/Error/Types.hs
@@ -1,11 +1,7 @@
 module HaskellWorks.Error.Types
   ( -- * Error types
     GenericError(GenericError),
-    RenderedError(RenderedError),
     TimedOut(TimedOut),
-
-    -- * Type classes
-    ToRenderedError(..),
   ) where
 
 import           HaskellWorks.Error.Types.All
diff --git a/src/HaskellWorks/Error/Types/All.hs b/src/HaskellWorks/Error/Types/All.hs
@@ -3,12 +3,8 @@
 
 module HaskellWorks.Error.Types.All (
     GenericError (..),
-    RenderedError (..),
     TimedOut(..),
-
-    ToRenderedError (..),
 ) where
 
 import           HaskellWorks.Error.Types.GenericError
-import           HaskellWorks.Error.Types.RenderedError
 import           HaskellWorks.Error.Types.TimedOut
diff --git a/src/HaskellWorks/Error/Types/GenericError.hs b/src/HaskellWorks/Error/Types/GenericError.hs
@@ -6,21 +6,10 @@ module HaskellWorks.Error.Types.GenericError (
     GenericError (..),
 ) where
 
-import           Data.Aeson
-import           Data.Generics.Product.Any
-import           HaskellWorks.Error.Types.RenderedError
-import           Lens.Micro
 
 import           HaskellWorks.Prelude
 
 newtype GenericError = GenericError
     { message :: Text
     }
     deriving (Eq, Generic, Show)
-
-instance ToRenderedError GenericError where
-    toRenderedError e =
-        RenderedError
-            { error   = "GenericError"
-            , payload = toJSON $ e ^. the @"message"
-            }
diff --git a/src/HaskellWorks/Error/Types/RenderedError.hs b/src/HaskellWorks/Error/Types/RenderedError.hs
diff --git a/src/HaskellWorks/Error/Types/TimedOut.hs b/src/HaskellWorks/Error/Types/TimedOut.hs
@@ -6,21 +6,9 @@ module HaskellWorks.Error.Types.TimedOut (
     TimedOut (..),
 ) where
 
-import           Data.Aeson
-import           Data.Generics.Product.Any
-import           HaskellWorks.Error.Types.RenderedError
-import           Lens.Micro
-
 import           HaskellWorks.Prelude
 
 newtype TimedOut = TimedOut
     { message :: Text
     }
     deriving (Eq, Generic, Show)
-
-instance ToRenderedError TimedOut where
-    toRenderedError e =
-        RenderedError
-            { error   = "TimedOut"
-            , payload = toJSON $ e ^. the @"message"
-            }