Fix "text" => "system" copy-paste errors

Author: tarleb

src/Foreign/Lua/Module/System.hs

@@ -30,7 +30,7 @@ import qualified System.Environment as Env
 import qualified System.Info as Info
 import qualified System.IO.Temp as Temp
 
--- | Pushes the @text@ module to the lua stack.
+-- | Pushes the @system@ module to the Lua stack.
 pushModule :: Lua NumResults
 pushModule = do
   Lua.newtable
@@ -51,8 +51,8 @@ pushModule = do
   addFunction "with_tmpdir" with_tmpdir
   return 1
 
--- | Add the text module under the given name to the table of preloaded
--- packages.
+-- | Add the @system@ module under the given name to the table of
+-- preloaded packages.
 preloadModule :: String -> Lua ()
 preloadModule = flip addPackagePreloader pushModule
 

test/system-module-tests.lua

@@ -1,5 +1,5 @@
 --
--- Tests for the hstext module
+-- Tests for the system module
 --
 local system = require 'system'
 

test/test-hslua-module-system.hs

@@ -28,18 +28,18 @@ tests = testGroup "HsLua System module"
   [ testCase "system module can be pushed to the stack" $
       Lua.run (void pushModule)
 
-  , testCase "text module can be added to the preloader" . Lua.run $ do
+  , testCase "system module can be added to the preloader" . Lua.run $ do
       Lua.openlibs
       preloadModule "system"
       assertEqual' "function not added to preloader" Lua.TypeFunction =<< do
         Lua.getglobal' "package.preload.system"
         Lua.ltype (-1)
 
-  , testCase "text module can be loaded as hstext" . Lua.run $ do
+  , testCase "system module can be loaded as hssystem" . Lua.run $ do
       Lua.openlibs
-      preloadModule "system"
+      preloadModule "hssystem"
       assertEqual' "loading the module fails " Lua.OK =<<
-        Lua.dostring "require 'system'"
+        Lua.dostring "require 'hssystem'"
 
   , testCase "Lua tests pass" . Lua.run $ do
       Lua.openlibs