diff --git a/src/Language/Lexer/Tlex/Output/TH.hs b/src/Language/Lexer/Tlex/Output/TH.hs
--- a/src/Language/Lexer/Tlex/Output/TH.hs
+++ b/src/Language/Lexer/Tlex/Output/TH.hs
@@ -50,11 +50,11 @@
     in ST.runST
         do ST.ST \s0# -> case unitSize of
             TlexTransStateSize8  -> case Prim.readWord8OffAddr# table# i# s0# of
-                (# s1#, r# #) -> case Prim.int8ToInt# do Prim.word8ToInt8# r# of
+                (# s1#, r# #) -> case Prim.word2Int# do Prim.word8ToWord# r# of
                     255# -> (# s1#, -1 #)
                     ri#  -> (# s1#, Types.I# ri# #)
             TlexTransStateSize16 -> case Prim.readWord16OffAddr# table# i# s0# of
-                (# s1#, r# #) -> case Prim.int16ToInt# do Prim.word16ToInt16# r# of
+                (# s1#, r# #) -> case Prim.word2Int# do Prim.word16ToWord# r# of
                     65535# -> (# s1#, -1 #)
                     ri#    -> (# s1#, Types.I# ri# #)
             TlexTransStateSize32 -> case Prim.readInt32OffAddr# table# i# s0# of
diff --git a/tlex-th.cabal b/tlex-th.cabal
--- a/tlex-th.cabal
+++ b/tlex-th.cabal
@@ -2,12 +2,12 @@
 build-type:          Custom
 
 name:                tlex-th
-version:             0.4.0.0
+version:             0.4.1.0
 license:             Apache-2.0 OR MPL-2.0
 license-file:        LICENSE
 copyright:           (c) 2021 Mizunashi Mana
 author:              Mizunashi Mana
-maintainer:          mizunashi-mana@noreply.git
+maintainer:          contact@mizunashi.work
 
 category:            Parsing
 homepage:            https://github.com/mizunashi-mana/tlex