From b4206cca604b02450505176a4ba0798d7a490034 Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Sun, 10 Jan 2016 12:38:22 +0100
Subject: back to ByteString

---
 src/LambdaCube/GL/Input.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/LambdaCube/GL/Input.hs')

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)
 
-- 
cgit v1.2.3