fix: valid binary ci instance

package.yaml

@@ -63,6 +63,7 @@ dependencies:
   - cryptoids-class
   - binary
   - binary-instances
+  - binary-orphans
   - mtl
   - esqueleto >=3.1.0
   - mime-types

src/Data/CaseInsensitive/Instances.hs

@@ -31,6 +31,9 @@ import qualified Data.Csv as Csv
 import Utils.Persist
 import Data.Proxy
 
+import Data.Binary (Binary)
+import qualified Data.Binary as Binary
+
 
 instance PersistField (CI Text) where
   toPersistValue ciText = PersistLiteralEscaped . Text.encodeUtf8 $ CI.original ciText
@@ -108,3 +111,7 @@ instance Csv.ToField s => Csv.ToField (CI s) where
 
 instance (CI.FoldCase s, Csv.FromField s) => Csv.FromField (CI s) where
   parseField = fmap CI.mk . Csv.parseField
+
+instance (CI.FoldCase s, Binary s) => Binary (CI s) where
+  get = CI.mk <$> Binary.get
+  put = Binary.put . CI.original

src/Database/Persist/Class/Instances.hs

@@ -13,7 +13,7 @@ import Database.Persist.Sql
 
 import Data.Binary (Binary)
 import qualified Data.Binary as Binary
-import Data.Binary.Instances ()
+import Data.Binary.Instances.Time as Import ()
 
 import qualified Data.Map as Map
 

src/Database/Persist/Types/Instances.hs

@@ -12,7 +12,7 @@ import Database.Persist.Types
 import Data.Time.Calendar.Instances ()
 import Data.Time.LocalTime.Instances ()
 import Data.Time.Clock.Instances ()
-import Data.Binary.Instances ()
+import Data.Binary.Instances.Time as Import ()
 
 import Data.Binary (Binary)
 

src/Import/NoModel.hs

@@ -73,7 +73,16 @@ import Data.Text.Encoding.Error as Import(UnicodeException(..))
 import Data.Semigroup         as Import (Min(..), Max(..))
 import Data.Monoid            as Import (Last(..), First(..), Any(..), All(..), Sum(..), Endo(..), Alt(..), Dual(..), Ap(..))
 import Data.Binary            as Import (Binary)
-import Data.Binary.Instances  as Import ()
+
+import Data.Binary.Orphans as Import ()
+import Data.Binary.Instances.Aeson as Import ()
+import Data.Binary.Instances.Hashable as Import ()
+import Data.Binary.Instances.Scientific as Import ()
+import Data.Binary.Instances.Tagged as Import ()
+import Data.Binary.Instances.Text as Import ()
+import Data.Binary.Instances.Time as Import ()
+import Data.Binary.Instances.UnorderedContainers as Import ()
+import Data.Binary.Instances.Vector as Import ()
 
 import Data.Dynamic           as Import (Dynamic)
 import Data.Dynamic.Lens      as Import