kuribas / haskell-opentype Goto Github PK

Opentype/Fileformat/Name.hs:87:24: error:
    • No instance for (MonadFail (Either String))
        arising from a use of ‘fail’
    • In the second argument of ‘($)’, namely
        ‘fail "Unsupported name table format."’
      In a stmt of a 'do' block:
        when (version > 0) $ fail "Unsupported name table format."
      In the expression:
        do version <- index16 bs 0
           when (version > 0) $ fail "Unsupported name table format."
           len <- index16 bs 1
           storage <- index16 bs 2
           ....
   |
87 |   when (version > 0) $ fail "Unsupported name table format."
   |                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

user error: string storage bounds exceeded