diff --git a/call.cabal b/call.cabal
--- a/call.cabal
+++ b/call.cabal
@@ -1,5 +1,5 @@
 name:                call
-version:             0.1
+version:             0.1.0.1
 synopsis:            The call game engine
 description:         Call is a minimalistic game engine that supports 2D/3D graphics and sounds.
 homepage:            https://github.com/fumieval/call
@@ -81,5 +81,5 @@
     buildable: True
   else
     buildable: False
-  build-depends: base == 4.*, call <= 0.1, lens == 4.*
+  build-depends: base == 4.*, call <= 0.2, lens == 4.*
   default-language:    Haskell2010
diff --git a/src/Call/Internal/GLFW.hs b/src/Call/Internal/GLFW.hs
--- a/src/Call/Internal/GLFW.hs
+++ b/src/Call/Internal/GLFW.hs
@@ -85,8 +85,10 @@
     FullScreen -> GLFW.getPrimaryMonitor
     _ -> return Nothing
 
-  -- GLFW.windowHint $ GLFW.WindowHint'OpenGLProfile GLFW.OpenGLProfile'Core
-  -- GLFW.windowHint $ GLFW.WindowHint'OpenGLForwardCompat True
+  GLFW.windowHint $ GLFW.WindowHint'ContextVersionMajor 3
+  GLFW.windowHint $ GLFW.WindowHint'ContextVersionMinor 2
+  GLFW.windowHint $ GLFW.WindowHint'OpenGLProfile GLFW.OpenGLProfile'Core
+  GLFW.windowHint $ GLFW.WindowHint'OpenGLForwardCompat True
   GLFW.windowHint $ GLFW.WindowHint'Resizable $ mode == Resizable
   win <- GLFW.createWindow ww wh title mon Nothing >>= maybe (fail "Failed to create a window") return
   GLFW.makeContextCurrent (Just win)
diff --git a/src/Call/Sight.hs b/src/Call/Sight.hs
--- a/src/Call/Sight.hs
+++ b/src/Call/Sight.hs
@@ -44,8 +44,6 @@
 import qualified Graphics.Rendering.OpenGL.GL as GL
 import Data.Color
 import Call.Types
-import Control.Monad.Trans.Writer.Strict as Strict
-import Control.Monad.Trans.Writer.Lazy as Lazy
 
 class Affine a where
   type Vec a :: *
@@ -90,12 +88,6 @@
   | SphericalMultiply Bitmap r
   | Diffuse RGBA r
   deriving Functor
-  {-
-  | Opacity r
-  | Light RGBA Float (V3 Float) (V4 Float)
-  | Specular RGB
-  | Ambient RGB
-  -}
 
 instance Affine Scene where
   type Vec Scene = V3 Float