diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-18 21:44:52 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-18 21:58:57 +0100 |
| commit | 32fd3547544ad3075da06f46aad3e85fd5887706 (patch) | |
| tree | 18c44f63c96f0425f8a0c6666041690d19e4a847 /compiler/iface/BinIface.hs | |
| parent | d361262b601c90512176e3dbc4a65c02d73a234d (diff) | |
| download | haskell-32fd3547544ad3075da06f46aad3e85fd5887706.tar.gz | |
Move and rename opt_HiVersion
It isn't really an option at all
Diffstat (limited to 'compiler/iface/BinIface.hs')
| -rw-r--r-- | compiler/iface/BinIface.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index 799438086a..f749f97cdb 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -122,7 +122,7 @@ readBinIface_ dflags checkHiWay traceBinIFaceReading hi_path ncu = do -- Check the interface file version and ways. check_ver <- get bh - let our_ver = show opt_HiVersion + let our_ver = show hiVersion wantedGot "Version" our_ver check_ver errorOnMismatch "mismatched interface file versions" our_ver check_ver @@ -172,7 +172,7 @@ writeBinIface dflags hi_path mod_iface = do else Binary.put_ bh (0 :: Word64) -- The version and way descriptor go next - put_ bh (show opt_HiVersion) + put_ bh (show hiVersion) let way_descr = getWayDescr dflags put_ bh way_descr |