diff --git a/src/plugins/System/Plugins/Load.hs b/src/plugins/System/Plugins/Load.hs
index ab6236f..887e044 100644
--- a/src/plugins/System/Plugins/Load.hs
+++ b/src/plugins/System/Plugins/Load.hs
@@ -46,6 +46,8 @@ module System.Plugins.Load (
 
       , Symbol
 
+      , getImports
+
   ) where
 
 import System.Plugins.Make             ( build )
@@ -629,6 +631,14 @@ loadDepends obj incpaths = do
                 moduleDeps <- mapM (\(hi,m) -> loadObject m (Object hi)) mods''
                 return (hiface,moduleDeps)
 
+-- ---------------------------------------------------------------------
+-- Nice interface to .hi parser
+--
+getImports :: String -> IO [String]
+getImports m = do
+        hi <- readIface (m ++ hiSuf)
+        return $ dep_mods (mi_deps hi)
+
 -- ---------------------------------------------------------------------
 -- C interface
 --