From 53e0da32a8b261f9af9b1dd1ef8afbdea960dc09 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Wed, 29 Sep 2021 12:55:21 -0600
Subject: [PATCH] remove postgresql-simple dependency

---
 package.yaml         |  1 -
 src/Orphans/Emver.hs | 14 +++-----------
 2 files changed, 3 insertions(+), 12 deletions(-)

diff --git a/package.yaml b/package.yaml
index b1ed290..742a24e 100644
--- a/package.yaml
+++ b/package.yaml
@@ -40,7 +40,6 @@ dependencies:
   - persistent
   - persistent-postgresql
   - persistent-template
-  - postgresql-simple
   - process
   - protolude
   - shakespeare
diff --git a/src/Orphans/Emver.hs b/src/Orphans/Emver.hs
index 502595f..10be872 100644
--- a/src/Orphans/Emver.hs
+++ b/src/Orphans/Emver.hs
@@ -9,12 +9,10 @@ import           Startlude
 import           Data.Aeson
 import qualified Data.Attoparsec.Text          as Atto
 
-import           Lib.Types.Emver
-import           Database.Persist.Sql
-import qualified Data.Text                     as T
 import           Control.Monad.Fail             ( MonadFail(fail) )
-import Database.PostgreSQL.Simple.FromField
-import Database.PostgreSQL.Simple.ToField
+import qualified Data.Text                     as T
+import           Database.Persist.Sql
+import           Lib.Types.Emver
 
 instance FromJSON Version where
     parseJSON = withText "Emver Version" $ either fail pure . Atto.parseOnly parseVersion
@@ -35,9 +33,3 @@ instance PersistField VersionRange where
     fromPersistValue = first T.pack . Atto.parseOnly parseRange <=< fromPersistValue
 instance PersistFieldSql VersionRange where
     sqlType _ = SqlString
-instance FromField Version where
-    fromField a = fromJSONField a 
-instance FromField [Version] where
-    fromField a = fromJSONField a 
-instance ToField [Version] where
-    toField a = toJSONField a 
\ No newline at end of file