Sort module functions alphabetically

Author: tarleb

src/Foreign/Lua/Module/System.hs

@@ -55,43 +55,9 @@ pushModule = do
 preloadModule :: String -> Lua ()
 preloadModule = flip addPackagePreloader pushModule
 
--- | Run an action, then restore the old environment variable values.
-with_env :: Map.Map String String -> Callback -> Lua NumResults
-with_env environment callback =
-  bracket (Lua.liftIO Env.getEnvironment)
-          setEnvironment
-          (\_ -> setEnvironment (Map.toList environment) >> invoke callback)
- where
-  setEnvironment newEnv = Lua.liftIO $ do
-    -- Crude, but fast enough: delete all entries in new environment,
-    -- then restore old environment one-by-one.
-    curEnv <- Env.getEnvironment
-    forM_ curEnv (Env.unsetEnv . fst)
-    forM_ newEnv (uncurry Env.setEnv)
-
-with_tmpdir :: String            -- ^ parent dir or template
-            -> AnyValue          -- ^ template or callback
-            -> Optional Callback -- ^ callback or nil
-            -> Lua NumResults
-with_tmpdir parentDir tmpl callback =
-  case fromOptional callback of
-    Nothing -> do
-      -- At most two args. The first arg (parent dir) has probably been
-      -- omitted, so we shift arguments and use the system's canonical
-      -- temporary directory.
-      let tmpl' = parentDir
-      callback' <- Lua.peek (fromAnyValue tmpl)
-      Temp.withSystemTempDirectory tmpl' (invokeWithFilePath callback')
-    Just callback' -> do
-      -- all args given. Second value must be converted to a string.
-      tmpl' <- Lua.peek (fromAnyValue tmpl)
-      Temp.withTempDirectory parentDir tmpl' (invokeWithFilePath callback')
-
--- | List the contents of a directory.
-ls :: Optional FilePath -> Lua [FilePath]
-ls fp = do
-  let fp' = fromMaybe "." (fromOptional fp)
-  ioToLua (Directory.listDirectory fp')
+--
+-- Module functions
+--
 
 -- | Change current working directory.
 chdir :: FilePath -> Lua ()
@@ -114,6 +80,12 @@ env = do
 getenv :: String -> Lua (Optional String)
 getenv name = ioToLua (Optional <$> Env.lookupEnv name)
 
+-- | List the contents of a directory.
+ls :: Optional FilePath -> Lua [FilePath]
+ls fp = do
+  let fp' = fromMaybe "." (fromOptional fp)
+  ioToLua (Directory.listDirectory fp')
+
 -- | Create a new directory which is initially empty, or as near to
 -- empty as the operating system allows.
 --
@@ -140,3 +112,35 @@ setenv name value = ioToLua (Env.setEnv name value)
 -- | Get the current directory for temporary files.
 tmpdirname :: Lua FilePath
 tmpdirname = ioToLua Directory.getTemporaryDirectory
+
+-- | Run an action, then restore the old environment variable values.
+with_env :: Map.Map String String -> Callback -> Lua NumResults
+with_env environment callback =
+  bracket (Lua.liftIO Env.getEnvironment)
+          setEnvironment
+          (\_ -> setEnvironment (Map.toList environment) >> invoke callback)
+ where
+  setEnvironment newEnv = Lua.liftIO $ do
+    -- Crude, but fast enough: delete all entries in new environment,
+    -- then restore old environment one-by-one.
+    curEnv <- Env.getEnvironment
+    forM_ curEnv (Env.unsetEnv . fst)
+    forM_ newEnv (uncurry Env.setEnv)
+
+with_tmpdir :: String            -- ^ parent dir or template
+            -> AnyValue          -- ^ template or callback
+            -> Optional Callback -- ^ callback or nil
+            -> Lua NumResults
+with_tmpdir parentDir tmpl callback =
+  case fromOptional callback of
+    Nothing -> do
+      -- At most two args. The first arg (parent dir) has probably been
+      -- omitted, so we shift arguments and use the system's canonical
+      -- temporary directory.
+      let tmpl' = parentDir
+      callback' <- Lua.peek (fromAnyValue tmpl)
+      Temp.withSystemTempDirectory tmpl' (invokeWithFilePath callback')
+    Just callback' -> do
+      -- all args given. Second value must be converted to a string.
+      tmpl' <- Lua.peek (fromAnyValue tmpl)
+      Temp.withTempDirectory parentDir tmpl' (invokeWithFilePath callback')