[commit: ghc] master: compiler: unlit profiling/ modules (aede9f0)

git at git.haskell.org git at git.haskell.org
Sun Nov 30 19:17:52 UTC 2014


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

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

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

commit aede9f09e68504cc38037318a018d9185c232215
Author: Austin Seipp <austin at well-typed.com>
Date:   Sun Nov 30 13:05:45 2014 -0600

    compiler: unlit profiling/ modules
    
    Summary: Signed-off-by: Austin Seipp <austin at well-typed.com>
    
    Test Plan: `./validate`
    
    Reviewers: hvr
    
    Subscribers: thomie, carter
    
    Differential Revision: https://phabricator.haskell.org/D537


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

aede9f09e68504cc38037318a018d9185c232215
 compiler/profiling/{CostCentre.lhs => CostCentre.hs} | 2 --
 compiler/profiling/{SCCfinal.lhs => SCCfinal.hs}     | 6 +-----
 2 files changed, 1 insertion(+), 7 deletions(-)

diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.hs
similarity index 99%
rename from compiler/profiling/CostCentre.lhs
rename to compiler/profiling/CostCentre.hs
index 8a6ed04..cce8394 100644
--- a/compiler/profiling/CostCentre.lhs
+++ b/compiler/profiling/CostCentre.hs
@@ -1,4 +1,3 @@
-\begin{code}
 {-# LANGUAGE BangPatterns, DeriveDataTypeable #-}
 module CostCentre (
         CostCentre(..), CcName, IsCafCC(..),
@@ -325,4 +324,3 @@ instance Binary CostCentre where
     -- ok, because we only need the SrcSpan when declaring the
     -- CostCentre in the original module, it is not used by importing
     -- modules.
-\end{code}
diff --git a/compiler/profiling/SCCfinal.lhs b/compiler/profiling/SCCfinal.hs
similarity index 98%
rename from compiler/profiling/SCCfinal.lhs
rename to compiler/profiling/SCCfinal.hs
index f9dc4a3..9ad5b5f 100644
--- a/compiler/profiling/SCCfinal.lhs
+++ b/compiler/profiling/SCCfinal.hs
@@ -1,7 +1,4 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
-%
-\begin{code}
+-- (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 {-# LANGUAGE CPP #-}
 
 -----------------------------------------------------------------------------
@@ -281,4 +278,3 @@ collectCCS ccs
  = MassageM $ \_mod_name (local_ccs, extern_ccs, ccss)
               -> ASSERT(not (noCCSAttached ccs))
                        ((local_ccs, extern_ccs, ccs : ccss), ())
-\end{code}



More information about the ghc-commits mailing list