Add missing typo, little bit of rearranging

src/plugins/System/Plugins/Load.hs

@@ -52,6 +52,7 @@ import System.Plugins.Make             ( build )
 import System.Plugins.Env
 import System.Plugins.Utils
 import System.Plugins.Consts           ( sysPkgSuffix, hiSuf, prefixUnderscore )
+import System.Plugins.LoadTypes
 
 import Language.Hi.Parser
 
@@ -75,10 +76,6 @@ import System.IO                ( hClose )
 
 -- TODO need a loadPackage p package.conf :: IO () primitive
 
--- ---------------------------------------------------------------------
-
-import System.Plugins.LoadTypes
-
 -- ---------------------------------------------------------------------
 -- return status of all *load functions:
 --

src/plugins/System/Plugins/LoadTypes.hs

@@ -1,3 +1,23 @@
+-- 
+-- Copyright (c) 2005 Lemmih <lemmih@gmail.com>
+-- Copyright (c) 2005 Don Stewart - http://www.cse.unsw.edu.au/~dons
+-- 
+-- This program is free software; you can redistribute it and/or
+-- modify it under the terms of the GNU General Public License as
+-- published by the Free Software Foundation; either version 2 of
+-- the License, or (at your option) any later version.
+-- 
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+-- General Public License for more details.
+-- 
+-- You should have received a copy of the GNU General Public License
+-- along with this program; if not, write to the Free Software
+-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+-- 02111-1307, USA.
+-- 
+
 module System.Plugins.LoadTypes
     ( Key (..)
     , Symbol
@@ -11,6 +31,7 @@ module System.Plugins.LoadTypes
 import Language.Hi.Parser
 
 data Key = Object String | Package String
+
 type Symbol      = String
 type Type        = String
 type Errors      = [String]
@@ -28,4 +49,4 @@ instance Ord Module where
 instance Eq Module where
     m1 == m2 = mname m1 == mname m2
 
-data ObjType = Vanilla | Shared deriving Eq
+data ObjType = Vanilla | Shared deriving Eq