File: HsDo.hs

package info (click to toggle)
haskell-ghc-exactprint 1.7.1.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,044 kB
  • sloc: haskell: 32,076; makefile: 7
file content (22 lines) | stat: -rw-r--r-- 592 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
module HsDo where

import qualified Data.Map as Map

moduleGraphNodes drop_hs_boot_nodes summaries = (graphFromEdgedVertices nodes, lookup_node)
  where
    numbered_summaries = zip summaries [1..]

    node_map :: NodeMap SummaryNode
    node_map = Map.fromList [ ((moduleName (ms_mod s), ms_hsc_src s), node)
                            | node@(s, _, _) <- nodes ]


graphFromEdgedVertices = undefined
nodes = undefined
lookup_node = undefined
type NodeMap a = Map.Map (Int,Int) (Int,Int,Int)
data SummaryNode = SummaryNode
moduleName = undefined
ms_mod = undefined
ms_hsc_src = undefined