Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 03:41:57 +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 3d8b4057df
commit 2105c58182
27 changed files with 681 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/Orphans/Emver.hs
View File

@@ -4,15 +4,34 @@
-- aeson, persistent, and yesod are not. So we put those here as they will not be extracted into a separate library.
module Orphans.Emver where
import Startlude
import Startlude ( ($)
, (.)
, (<=<)
, Applicative(pure)
, Bifunctor(first)
, either
, show
)
import Data.Aeson
import Data.Aeson ( FromJSON(parseJSON)
, ToJSON(toJSON)
, Value(String)
, withText
)
import qualified Data.Attoparsec.Text as Atto
import Control.Monad.Fail ( MonadFail(fail) )
import qualified Data.Text as T
import Database.Persist.Sql
import Lib.Types.Emver
import Database.Persist.Sql ( PersistField(..)
, PersistFieldSql(..)
, PersistValue(PersistText)
, SqlType(SqlString)
)
import Lib.Types.Emver ( Version
, VersionRange
, parseRange
, parseVersion
)
instance FromJSON Version where
parseJSON = withText "Emver Version" $ either fail pure . Atto.parseOnly parseVersion