recursion-ninja pushed to branch wip/fix-26670 at Glasgow Haskell Compiler / GHC

Commits:

3 changed files:

Changes:

  • compiler/GHC/Types/Arity.hs
    ... ... @@ -2,16 +2,6 @@
    2 2
     (c) The University of Glasgow 2006
    
    3 3
     (c) The GRASP/AQUA Project, Glasgow University, 1997-1998
    
    4 4
     
    
    5
    -\section[BasicTypes]{Miscellaneous types}
    
    6
    -
    
    7
    -This module defines a miscellaneously collection of very simple
    
    8
    -types that
    
    9
    -
    
    10
    -\begin{itemize}
    
    11
    -\item have no other obvious home
    
    12
    -\item don't depend on any other complicated types
    
    13
    -\item are used in more than one "part" of the compiler
    
    14
    -\end{itemize}
    
    15 5
     -}
    
    16 6
     
    
    17 7
     module GHC.Types.Arity
    

  • compiler/GHC/Types/InlinePragma.hs
    ... ... @@ -4,17 +4,6 @@
    4 4
     {-
    
    5 5
     (c) The University of Glasgow 2006
    
    6 6
     (c) The GRASP/AQUA Project, Glasgow University, 1997-1998
    
    7
    -
    
    8
    -\section[BasicTypes]{Miscellaneous types}
    
    9
    -
    
    10
    -This module defines a miscellaneously collection of very simple
    
    11
    -types that
    
    12
    -
    
    13
    -\begin{itemize}
    
    14
    -\item have no other obvious home
    
    15
    -\item don't depend on any other complicated types
    
    16
    -\item are used in more than one "part" of the compiler
    
    17
    -\end{itemize}
    
    18 7
     -}
    
    19 8
     
    
    20 9
     {-# OPTIONS_GHC -Wno-orphans #-} -- Binary InlinePragmaGhcTag, Binary InlinePragma
    

  • compiler/GHC/Utils/Outputable.hs
    ... ... @@ -2025,7 +2025,7 @@ pprInlineDebug = pprInline' False
    2025 2025
     pprInline' :: Bool           -- True <=> do not display the inl_inline field
    
    2026 2026
                -> InlinePragma (GhcPass p)
    
    2027 2027
                -> SDoc
    
    2028
    -pprInline' _ (XInlinePragma _) = text "XInlinePragma <UNKNOWN>"
    
    2028
    +pprInline' _ (XInlinePragma ext) = dataConCantHappen ext
    
    2029 2029
     pprInline' emptyInline (InlinePragma
    
    2030 2030
                             { inl_inline = inline,
    
    2031 2031
                               inl_act = activation,