2 files changed, 3 insertions, 2 deletions

diff --git a/src/LambdaCube/GL/Input.hs b/src/LambdaCube/GL/Input.hs
index 596563a..742fc35 100644
--- a/src/LambdaCube/GL/Input.hs
+++ b/src/LambdaCube/GL/Input.hs
@@ -8,6 +8,7 @@ import Data.Map (Map)
 import Data.IntMap (IntMap)
 import Data.Vector (Vector,(//),(!))
 import Data.Word
+import Data.String
 import Foreign
 import qualified Data.IntMap as IM
 import qualified Data.Set as S
@@ -42,7 +43,7 @@ mkUniform :: [(String,InputType)] -> IO (Map GLUniformName InputSetter, Map Stri
 mkUniform l = do
     unisAndSetters <- forM l $ \(n,t) -> do
         (uni, setter) <- mkUniformSetter t
-        return ((n,uni),(n,setter))
+        return ((n,uni),(fromString n,setter))
     let (unis,setters) = unzip unisAndSetters
     return (Map.fromList setters, Map.fromList unis)
 
diff --git a/src/LambdaCube/GL/Type.hs b/src/LambdaCube/GL/Type.hs
index ebd0582..8f4bdd7 100644
--- a/src/LambdaCube/GL/Type.hs
+++ b/src/LambdaCube/GL/Type.hs
@@ -17,7 +17,7 @@ import Graphics.GL.Core33
 import Linear
 import IR
 
-type GLUniformName = String -- ByteString
+type GLUniformName = ByteString
 
 ---------------
 -- Input API --