GLFW-b 1.4.1 → 1.4.2

raw patch · 2 files changed

+7/−13 lines, 2 files

Files

GLFW-b.cabal +1/−1
Test.hs +6/−12

GLFW-b.cabal view

@@ -1,5 +1,5 @@ name:         GLFW-b-version:      1.4.1+version:      1.4.2 category:     Graphics  author:       Brian Lewis <brian@lorf.org>

Test.hs view

@@ -38,13 +38,9 @@  -------------------------------------------------------------------------------- -versionMajor, versionMinor, versionRevision :: Int-versionMajor    = 3-versionMinor    = 0-versionRevision = 1--version :: GLFW.Version-version = GLFW.Version versionMajor versionMinor versionRevision+versionMajor, versionMinor :: Int+versionMajor = 3+versionMinor = 0  giveItTime :: IO () giveItTime = threadDelay 250000@@ -154,10 +150,8 @@ test_getVersion :: IO () test_getVersion = do     v <- GLFW.getVersion-    v                      @?= version-    GLFW.versionMajor    v @?= versionMajor-    GLFW.versionMinor    v @?= versionMinor-    GLFW.versionRevision v @?= versionRevision+    GLFW.versionMajor v @?= versionMajor+    GLFW.versionMinor v @?= versionMinor  test_getVersionString :: IO () test_getVersionString = do@@ -166,7 +160,7 @@       Just vs -> assertBool "" $ v `isPrefixOf` vs       Nothing -> assertFailure ""   where-    v = intercalate "." $ map show [versionMajor, versionMinor, versionRevision]+    v = intercalate "." $ map show [versionMajor, versionMinor]  test_getMonitors :: IO () test_getMonitors = do