remove duplicate register names
[wavedrum/sharc-disassembler.git] / Main.hs
1 {-
2 This file is part of shark-disassembler.
3
4 Copyright (C) 2014 Ricardo Wurmus
5
6 This program is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>.
18 -}
19
20 import SHARC.Kernel
21 import System.Environment (getArgs)
22 import qualified Data.ByteString.Lazy as B
23
24 main :: IO ()
25 main = do
26 args <- getArgs
27 contents <- B.readFile (head args)
28 printKernel contents