Move pair to V2

src/Preload/Update.hs

@@ -5,6 +5,7 @@ module Preload.Update (
     renderDataResizeUpdate,
 ) where
 
+import Linear
 import Control.Lens
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Char8 as BSC
@@ -28,7 +29,7 @@ renderDataResizeUpdate cfig rdata = do
     rdata' <- sizeFBOs cfig rdata
     bbVert <- BS.readFile "shader/texture/bloomBlur.vert"
     bbFrag <- BS.readFile "shader/texture/bloomBlur.frag"
-    let (xsize, ysize) = getWindowSize _gr_downsize_res cfig :: (Int, Int)
+    let V2 xsize ysize = getWindowSize _gr_downsize_res cfig :: V2 Int
         (bh, bmid) = BS.breakSubstring "(" bbFrag
         (_, btt) = BS.breakSubstring ")" bmid
         bbFrag' = BS.append bh $ BS.append (BSC.pack $ '(' : show xsize ++ "," ++ show ysize) btt