18 lines
618 B
Haskell
18 lines
618 B
Haskell
{-# LANGUAGE ImportQualifiedPost #-}
|
|
{-# LANGUAGE TypeApplications #-}
|
|
{-# LANGUAGE DataKinds #-}
|
|
module Main (main) where
|
|
|
|
import Data.ByteString.Lazy qualified as ByteString
|
|
import Data.Text.Lazy.IO qualified as LazyTextIO
|
|
import Pretty.Serialize qualified as Pretty
|
|
|
|
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
|
|
LazyTextIO.putStrLn . Pretty.serialize $ runExtract input (extract @(Classfile Parse))
|