@@ -1,13 +1,13 @@
1−module Libraries (libraries, addPrelude) where
1+module Metadata.Libraries (libraries, addPrelude) where
4import Control.Applicative ((<$>),(<*>))
3import Control.Applicative ((<$>),(<*>))
5import qualified Data.Map as Map
4import qualified Data.Map as Map
6import Data.List (inits)
5import Data.List (inits)
7import Text.JSON
6import Text.JSON
8−import LoadLibraries as Libs
7+import Metadata.LoadLibraries as Libs
8+import SourceSyntax.Module
10−addPrelude :: Module -> Module
10+addPrelude :: Module t v -> Module t v
11addPrelude (Module name exs ims stmts) = Module name exs (customIms ++ ims) stmts
11addPrelude (Module name exs ims stmts) = Module name exs (customIms ++ ims) stmts
12 where customIms = concatMap addModule prelude
12 where customIms = concatMap addModule prelude