Sign upLogin

quyse/flaw

View on GitHub
Star
flaw-app/Flaw/App.hs

Summary

Maintainability
Test Coverage

Redundant case
Open

      initGraphics graphicsSystemId = case graphicsSystemId of
#if defined(ghcjs_HOST_OS)
        AppGraphicsSystemWebGL -> do
          let _ = (maybeWindowPosition, maybeWindowSize, binaryCache, debug)
          (graphicsSystem, graphicsDevice, graphicsContext, presenter) <- book bk $ webglInit window needDepthBuffer
Severity: Minor
Found in flaw-app/Flaw/App.hs by hlint

Found

case graphicsSystemId of
    _ -> throwIO $ DescribeFirstException "unsupported graphics system"

Perhaps

throwIO $ DescribeFirstException "unsupported graphics system"

There are no issues that match your filters.

Category
Status