patch applied

fdep/src/Fdep/Plugin.hs

@@ -40,6 +40,10 @@ import qualified Network.WebSockets as WS
 import System.Environment (lookupEnv)
 import GHC.IO (unsafePerformIO)
 #if __GLASGOW_HASKELL__ >= 900
+import GHC.Driver.Errors
+import GHC.Driver.Session
+import GHC.Data.Bag
+import GHC.Types.Error
 import GHC.Core.TyCo.Rep
 import GHC.Core.TyCon
 import GHC.Core.DataCon
@@ -53,10 +57,10 @@ import GHC.Driver.Env
 import GHC.Tc.Types
 import GHC.Unit.Module.ModSummary
 import GHC.Utils.Outputable (showSDocUnsafe,ppr)
-import GHC.Data.Bag (bagToList)
 import GHC.Types.Name hiding (varName)
 import GHC.Types.Var
 import qualified Data.Aeson.KeyMap as HM
+import GHC.Unit.Module.ModGuts
 #else
 import TyCoRep
 import DataCon
@@ -87,9 +91,10 @@ handleWarns _ _ _ x =do
     dflags <- getDynFlags
     logger <- getLogger
     warnings <- getWarnings
+    liftIO $ print $ map (errMsgReason) $ bagToList warnings 
     liftIO $ printOrThrowWarnings logger dflags warnings
     clearWarnings
-    x
+    return x
 
     where
         getWarnings :: Hsc WarningMessages
@@ -1065,4 +1070,4 @@ getLoc'   = (showSDocUnsafe . ppr . la2r . getLoc)
 #else
 getLocTC' = (showSDocUnsafe . ppr . getLoc)
 getLoc' = (showSDocUnsafe . ppr . getLoc)
-#endif
+#endif