12 lines
233 B
Haskell
12 lines
233 B
Haskell
module Yore.Error (Error (..)) where
|
|
|
|
import Data.Text (Text)
|
|
|
|
import qualified Database.PostgreSQL.Opium as Opium
|
|
|
|
data Error
|
|
= ConnectionError Opium.ConnectionError
|
|
| DBError Opium.Error
|
|
| GenericError Text
|
|
deriving (Show)
|