SHOW:
|
|
- or go back to the newest paste.
| 1 | main = do | |
| 2 | (args) <- getArgs | |
| 3 | - | fsm <- if lenght args == 0 |
| 3 | + | let fsm = if lenght args == 0 |
| 4 | - | then |
| 4 | + | then |
| 5 | - | readStdin |
| 5 | + | readStdin |
| 6 | - | else |
| 6 | + | else |
| 7 | - | readFromFile args |
| 7 | + | readFromFile args |
| 8 | putStr fsm |
