[commit: ghc] master: Remove dead function patSynTyDetails (808bbdf)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/808bbdf08058785ae5bc59b5b4f2b04951d4cbbf/ghc

>---------------------------------------------------------------

commit 808bbdf08058785ae5bc59b5b4f2b04951d4cbbf
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Oct 16 12:08:35 2015 +0100

    Remove dead function patSynTyDetails
    
    And that allows us to remove the nasty import of HsBinds,
    which has no business in this module.


>---------------------------------------------------------------

808bbdf08058785ae5bc59b5b4f2b04951d4cbbf
 compiler/basicTypes/PatSyn.hs | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/compiler/basicTypes/PatSyn.hs b/compiler/basicTypes/PatSyn.hs
index 081968a..503ebd8 100644
--- a/compiler/basicTypes/PatSyn.hs
+++ b/compiler/basicTypes/PatSyn.hs
@@ -13,7 +13,7 @@ module PatSyn (
 
         -- ** Type deconstruction
         patSynName, patSynArity, patSynIsInfix,
-        patSynArgs, patSynTyDetails, patSynType,
+        patSynArgs, patSynType,
         patSynMatcher, patSynBuilder,
         patSynExTyVars, patSynSig,
         patSynInstArgTys, patSynInstResTy,
@@ -31,7 +31,6 @@ import Util
 import BasicTypes
 import FastString
 import Var
-import HsBinds( HsPatSynDetails(..) )
 
 import qualified Data.Data as Data
 import qualified Data.Typeable
@@ -286,13 +285,6 @@ patSynArity = psArity
 patSynArgs :: PatSyn -> [Type]
 patSynArgs = psArgs
 
-patSynTyDetails :: PatSyn -> HsPatSynDetails Type
-patSynTyDetails (MkPatSyn { psInfix = is_infix, psArgs = arg_tys })
-  | is_infix, [left,right] <- arg_tys
-  = InfixPatSyn left right
-  | otherwise
-  = PrefixPatSyn arg_tys
-
 patSynExTyVars :: PatSyn -> [TyVar]
 patSynExTyVars = psExTyVars