diff --git a/src/plugins/System/Plugins/Load.hs b/src/plugins/System/Plugins/Load.hs index 8479a67..103b20a 100644 --- a/src/plugins/System/Plugins/Load.hs +++ b/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: -- diff --git a/src/plugins/System/Plugins/LoadTypes.hs b/src/plugins/System/Plugins/LoadTypes.hs index a59ee42..5aa9435 100644 --- a/src/plugins/System/Plugins/LoadTypes.hs +++ b/src/plugins/System/Plugins/LoadTypes.hs @@ -1,3 +1,23 @@ +-- +-- Copyright (c) 2005 Lemmih +-- 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 \ No newline at end of file +data ObjType = Vanilla | Shared deriving Eq