ipfs 1.1.2 → 1.1.3

raw patch · 3 files changed

+11/−5 lines, 3 files

Files

• ipfs.cabal +1/−1
• library/Network/IPFS/BinPath/Types.hs +7/−1
• library/Network/IPFS/File/Types.hs +3/−3

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           ipfs-version:        1.1.2+version:        1.1.3 synopsis:       Access IPFS locally and remotely description:    Interact with the IPFS network by shelling out to a local IPFS node or communicating via the HTTP interface of a remote IPFS node. category:       Network

@@ -1,13 +1,16 @@ module Network.IPFS.BinPath.Types (BinPath (..)) where +import qualified RIO.Text as Text+ import System.Envy -import Network.IPFS.Prelude import Network.IPFS.Internal.Orphanage.Natural ()+import Network.IPFS.Prelude  -- | Path to the IPFS binary newtype BinPath = BinPath { getBinPath :: FilePath }   deriving          ( Show+                    , Eq                     , Generic                     )   deriving newtype  ( IsString )@@ -18,3 +21,6 @@ instance FromJSON BinPath where   parseJSON = withText "IPFS.BinPath" \txt ->     BinPath <$> parseJSON (String txt)++instance Display BinPath where+  textDisplay (BinPath path) = Text.pack path

@@ -3,16 +3,16 @@  import qualified Data.ByteString.Builder as Builder import           Data.Swagger+import qualified RIO.ByteString.Lazy     as Lazy import           Servant-import qualified RIO.ByteString.Lazy as Lazy  import Network.IPFS.Prelude  -- | A file serialized as a lazy bytestring newtype Serialized = Serialized { unserialize :: Lazy.ByteString }   deriving         ( Eq-                    , Show-                    )+                   , Show+                   )   deriving newtype ( IsString )  instance ToSchema Serialized where