-- | Run the IfaceM monad
runIfaceM :: IfaceM a -> IO a
runIfaceM = defaultErrorHandler defaultFatalMessager defaultFlushOut
          . runGhc (Just libdir)
runIfaceM :: IfaceM a -> IO a
runIfaceM = defaultErrorHandler defaultFatalMessager defaultFlushOut
          . runGhc (Just libdir)
runIfaceM = defaultErrorHandler defaultFatalMessager defaultFlushOut
          . runGhc (Just libdir)