Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

whitespace: remove extra empty lines

  • Loading branch information...
commit 0c69493b0cdb3c24d702ed51ba393ac92161d36d 1 parent 023f482
@kfish authored
View
3  src/GHC/Vacuum.hs
@@ -74,7 +74,6 @@ module GHC.Vacuum (
--,module GHC.Vacuum.Q
) where
-
import GHC.Vacuum.Q
import GHC.Vacuum.Util
import GHC.Vacuum.Types
@@ -510,5 +509,3 @@ for2:
}
-}
-
-
View
7 src/GHC/Vacuum/ClosureType.hs
@@ -1,4 +1,3 @@
-
module GHC.Vacuum.ClosureType (
isFun,isThunk,isCon
,ClosureType(..)
@@ -263,9 +262,3 @@ instance Enum ClosureType where
toEnum 72 = WHITEHOLE
toEnum n = error ("toEnum: ClosureType: invalid ClosureType: " ++ show n)
-
-
-
-
-
-
View
15 src/GHC/Vacuum/Pretty.hs
@@ -1,6 +1,3 @@
-
-
-
module GHC.Vacuum.Pretty (
module GHC.Vacuum.Pretty
,module GHC.Vacuum.Pretty.Dot
@@ -20,7 +17,6 @@ import GHC.Vacuum.Pretty.Dot
-----------------------------------------------------------------------------
-
toAdjPair :: (HNodeId, HNode) -> (Int, [Int])
toAdjPair = mapsnd nodePtrs
@@ -95,14 +91,3 @@ split f = flip IM.foldWithKey mempty (\i a m ->
ps)
-----------------------------------------------------------------------------
-
-
-
-
-
-
-
-
-
-
-
View
1  src/GHC/Vacuum/Pretty/Dot.hs
@@ -1,4 +1,3 @@
-
module GHC.Vacuum.Pretty.Dot (
graphToDot
,ppGraph,ppEdge,gStyle
View
8 src/GHC/Vacuum/Q.hs
@@ -98,7 +98,6 @@ getQContents q = do
as <- unsafeInterleaveIO (getQContents q)
return (a:as)
-
takeWhileQ :: (a -> Bool) -> Q a -> IO [a]
takeWhileQ p q = do
a <- takeQ q
@@ -108,11 +107,4 @@ takeWhileQ p q = do
as <- unsafeInterleaveIO (takeWhileQ p q)
return (a:as)
-
-
-
-
------------------------------------------------
-
-
-
View
2  src/GHC/Vacuum/Types.hs
@@ -1,6 +1,5 @@
{-# LANGUAGE TypeSynonymInstances #-}
-
module GHC.Vacuum.Types (
module GHC.Vacuum.Types
) where
@@ -97,4 +96,3 @@ emptyEnv = Env
,graph = mempty}
------------------------------------------------
-
View
4 src/GHC/Vacuum/Util.hs
@@ -1,6 +1,5 @@
{-# LANGUAGE BangPatterns #-}
-
module GHC.Vacuum.Util (
module GHC.Vacuum.Util
) where
@@ -80,6 +79,3 @@ i2p (I# n#) = Ptr (int2Addr# n#)
-}
------------------------------------------------
-
-
-
Please sign in to comment.
Something went wrong with that request. Please try again.