diff options
| author | Kavon Farvardin <kavon@farvard.in> | 2017-07-25 15:25:37 -0500 |
|---|---|---|
| committer | Kavon Farvardin <kavon@farvard.in> | 2017-07-25 15:25:37 -0500 |
| commit | 8ddb47cfcf5776e9a3c55fd37947c8a95e00fa12 (patch) | |
| tree | 4428b2242c6637aac56bd3c35f5df12375d9950c /utils/check-ppr/Main.hs | |
| parent | baea1d6ef1997db3194f0cd9226758e28e7d6312 (diff) | |
| parent | 6bb32ba78580271921e3d5c3c98afac2c1b68de4 (diff) | |
| download | haskell-8ddb47cfcf5776e9a3c55fd37947c8a95e00fa12.tar.gz | |
update to current master
Diffstat (limited to 'utils/check-ppr/Main.hs')
| -rw-r--r-- | utils/check-ppr/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/check-ppr/Main.hs b/utils/check-ppr/Main.hs index 47a95659ff..2fd44b2be0 100644 --- a/utils/check-ppr/Main.hs +++ b/utils/check-ppr/Main.hs @@ -77,7 +77,7 @@ parseOneFile libdir fileName = do _ <- load LoadAllTargets graph <- getModuleGraph let - modSum = case filter modByFile graph of + modSum = case filter modByFile (mgModSummaries graph) of [x] -> x xs -> error $ "Can't find module, got:" ++ show (map (ml_hs_file . ms_location) xs) |