Switch from recording IsBootInterface to recording full HscSource.

Note: ModIface format change is BC, no need to recompile.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>

1 files changed, 12 insertions, 0 deletions

diff --git a/compiler/main/DriverPhases.hs b/compiler/main/DriverPhases.hs
index 9d1199339a..ff6f8b8ab1 100644
--- a/compiler/main/DriverPhases.hs
+++ b/compiler/main/DriverPhases.hs
@@ -41,6 +41,7 @@ import {-# SOURCE #-} DynFlags
 import Outputable
 import Platform
 import System.FilePath
+import Binary
 
 -----------------------------------------------------------------------------
 -- Phases
@@ -95,6 +96,17 @@ data HscSource
      deriving( Eq, Ord, Show )
         -- Ord needed for the finite maps we build in CompManager
 
+instance Binary HscSource where
+    put_ bh HsSrcFile = putByte bh 0
+    put_ bh HsBootFile = putByte bh 1
+    put_ bh HsigFile = putByte bh 2
+    get bh = do
+        h <- getByte bh
+        case h of
+            0 -> return HsSrcFile
+            1 -> return HsBootFile
+            _ -> return HsigFile
+
 hscSourceString :: HscSource -> String
 hscSourceString HsSrcFile   = ""
 hscSourceString HsBootFile  = "[boot]"