aboutsummaryrefslogtreecommitdiffstats
path: root/src/Vivant
diff options
context:
space:
mode:
Diffstat (limited to 'src/Vivant')
-rw-r--r--src/Vivant/Noise.hs16
-rw-r--r--src/Vivant/Shader.hs12
-rw-r--r--src/Vivant/Texture.hs10
3 files changed, 19 insertions, 19 deletions
diff --git a/src/Vivant/Noise.hs b/src/Vivant/Noise.hs
index 09a4b3e..131ffce 100644
--- a/src/Vivant/Noise.hs
+++ b/src/Vivant/Noise.hs
@@ -4,14 +4,14 @@ module Vivant.Noise
(Permutation(..), perlin3, permutation, mkPermutation)
where
-import Control.Arrow
-import Data.Bits
-import Data.Vector.Unboxed ((!))
-import Data.Word
-import System.Environment (getArgs)
-
-import qualified Codec.Picture as P
-import qualified Data.ByteString as B
+import Control.Arrow
+import Data.Bits
+import Data.Vector.Unboxed ((!))
+import Data.Word
+import System.Environment (getArgs)
+
+import qualified Codec.Picture as P
+import qualified Data.ByteString as B
import qualified Data.Vector.Unboxed as V
perlin3 :: (Ord a, Num a, RealFrac a, V.Unbox a) => Permutation -> (a, a, a) -> a
diff --git a/src/Vivant/Shader.hs b/src/Vivant/Shader.hs
index dfd5d41..c2df314 100644
--- a/src/Vivant/Shader.hs
+++ b/src/Vivant/Shader.hs
@@ -1,12 +1,12 @@
module Vivant.Shader (createProgram) where
-import SDL (($=))
+import Control.Monad (unless)
+import qualified Data.ByteString as BS
import qualified Graphics.Rendering.OpenGL as GL
-import qualified Data.ByteString as BS
-import System.Exit (exitFailure)
-import System.IO (stderr, hPutStrLn)
-import Control.Monad (unless)
-import Paths_vivant (getDataDir)
+import Paths_vivant (getDataDir)
+import SDL (($=))
+import System.Exit (exitFailure)
+import System.IO (hPutStrLn, stderr)
createProgram :: IO GL.Program
createProgram = do
diff --git a/src/Vivant/Texture.hs b/src/Vivant/Texture.hs
index 7328c87..dceba80 100644
--- a/src/Vivant/Texture.hs
+++ b/src/Vivant/Texture.hs
@@ -1,12 +1,12 @@
module Vivant.Texture (initTexture, loadTexture) where
-import Codec.Picture.Jpg (decodeJpeg)
-import Codec.Picture.Types (convertImage)
+import Codec.Picture.Jpg (decodeJpeg)
+import Codec.Picture.Types (convertImage)
+import qualified Data.ByteString as BS
+import qualified Data.Vector.Storable as V
import qualified Graphics.Rendering.OpenGL as GL
-import qualified Data.ByteString as BS
-import qualified Data.Vector.Storable as V
-import Paths_vivant (getDataDir)
+import Paths_vivant (getDataDir)
initTexture = do
GL.textureWrapMode GL.Texture2D GL.S $= (GL.Mirrored, GL.Repeat)