Update src/BotPlutusInterface/UtxoParser.hs

Co-authored-by: Samuel Williams <33094920+samuelWilliams99@users.noreply.github.com>

Author: szg251

src/BotPlutusInterface/UtxoParser.hs

@@ -108,7 +108,7 @@ tokenNameParser = do
   where
     tokenName = do
       void $ char '.'
-      void (string "0x") <|> pure ()
+      void $ optional $ string "0x"
       TokenName <$> decodeHash (takeWhile (not . isSpace))
 
 datumHashNoneParser :: Parser ()