Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-01 20:44:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

mass clean up of warnings, hints, errors

Browse Source
This commit is contained in:
Keagan McClelland
2022-05-26 18:26:16 -06:00
parent 0b3433c85b
commit bf0c0b235c
27 changed files with 681 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/Lib/Error.hs
View File

@@ -3,11 +3,30 @@
module Lib.Error where
import Startlude
import Startlude ( (.)
, Eq
, ExceptT
, Exception
, ExitCode
, Show
, Text
, show
)
import Data.String.Interpolate.IsString
import Network.HTTP.Types
import Yesod.Core
( i )
import Network.HTTP.Types ( Status
, status400
, status404
, status500
)
import Yesod.Core ( (.=)
, ToContent(..)
, ToJSON(toJSON)
, ToTypedContent(..)
, Value(String)
, object
)
type S9ErrT m = ExceptT S9Error m