algol68-fringe.a68: Fix stupid typo in a comment.

[fringe] / haskell-fringe.hs

diff --git a/haskell-fringe.hs b/haskell-fringe.hs
index 4ca9a3e..1054cab 100644 (file)
--- a/haskell-fringe.hs
+++ b/haskell-fringe.hs
@@ -1,13 +1,14 @@
--- -*-haskell-*-
---
--- Haskell implementation of a `same-fringe' solver.
+--- -*-haskell-*-
+---
+--- Haskell implementation of a `same-fringe' solver.
 
-import IO
-import System
-import Monad
+import System.IO
+import System.Environment
+import System.Exit
+import Control.Monad
 
 -----------------------------------------------------------------------------
--- Parser combinators.
+--- Parser combinators.
 
 -- A very simple parser monad.
 newtype Parser t a = Parser { runparse :: [t] -> Either String (a, [t]) }
@@ -56,7 +57,7 @@ eof = do
     _ -> fail "trailing junk"
 
 -----------------------------------------------------------------------------
--- Tree data type.
+--- Tree data type.
 
 data Tree a = Leaf | Node (Tree a) a (Tree a) deriving (Show)
 
@@ -85,7 +86,7 @@ parseTree cs = parse cs $ do t <- tree; eof; return t
       _ -> return Leaf
 
 -----------------------------------------------------------------------------
--- Main program.
+--- Main program.
 
 -- Report MSG as an error and quit.
 bail msg = do