Merge pull request #17 from wireapp/fix-links

Fix links instance

Author: alpmestan

src/Servant/Multipart.hs

@@ -36,26 +36,21 @@ module Servant.Multipart
   ) where
 
 import Control.Lens ((<>~), (&), view)
-import Control.Monad
 import Control.Monad.IO.Class
 import Control.Monad.Trans.Resource
-import Data.ByteString.Lazy (ByteString)
 import Data.Foldable (foldMap)
-import Data.Function
 import Data.List (find)
 import Data.Maybe
 import Data.Monoid
 import Data.Text (Text, unpack)
 import Data.Text.Encoding (decodeUtf8)
 import Data.Typeable
-import Network.HTTP.Media ((//))
 import Network.Wai
 import Network.Wai.Parse
 import Servant
 import Servant.Docs
 import Servant.Server.Internal
 import System.Directory
-import System.IO
 
 import qualified Data.ByteString      as SBS
 import qualified Data.ByteString.Lazy as LBS
@@ -429,8 +424,8 @@ instance {-# OVERLAPPING #-}
          LookupContext cs a => LookupContext (a ': cs) a where
   lookupContext _ (c :. _) = Just c
 
-instance HasLink sub => HasLink (MultipartForm a :> sub) where
-  type MkLink (MultipartForm a :> sub) = MkLink sub
+instance HasLink sub => HasLink (MultipartForm tag a :> sub) where
+  type MkLink (MultipartForm tag a :> sub) = MkLink sub
   toLink _ = toLink (Proxy :: Proxy sub)
 
 -- | The 'ToMultipartSample' class allows you to create sample 'MultipartData'