vegowotenks/java-classfile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: partial classfile staging

Browse source
This commit is contained in:
vegowotenks 2025-07-13 10:00:15 +02:00
parent d692c3a6c0
commit 00898b18dc
10 changed files with 136 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -1,5 +1,6 @@
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE DataKinds #-}
module Main (main) where
import Data.ByteString.Lazy qualified as ByteString
@ -7,8 +8,9 @@ import Data.ByteString.Lazy qualified as ByteString
import Language.Java.Classfile (Classfile)
import Language.Java.Classfile.Extract (runExtract)
import Language.Java.Classfile.Extractable (extract)
import Language.Java.Classfile.Stage (Stage(Parse))
main :: IO ()
main = do
input <- ByteString.getContents
print $ runExtract input (extract @Classfile)
print $ runExtract input (extract @(Classfile Parse))