19 lines
507 B
Haskell
19 lines
507 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Main (main) where
|
|
import Control.Monad ((<$!>))
|
|
|
|
import qualified System.Environment as Env
|
|
|
|
import qualified Language.Brainfuck as Brainfuck
|
|
import qualified Data.Text as Text
|
|
import qualified Data.Text.IO as TextIO
|
|
|
|
main :: IO ()
|
|
main = do
|
|
programFile <- Env.getArgs >>= \case
|
|
[x] -> pure x
|
|
_ -> error "usage: [program] source.bf"
|
|
|
|
instructions <- Brainfuck.parse <$!> TextIO.readFile programFile
|
|
|
|
mapM_ (TextIO.putStrLn . Text.pack . show) instructions
|