machine: fix mayRaise analysis of catch

[haskell/symantic-parser.git] / src / Symantic / Parser / Haskell / View.hs

diff --git a/src/Symantic/Parser/Haskell/View.hs b/src/Symantic/Parser/Haskell/View.hs
index a0174878de9b5fe8e909ea61cc32789a342b0928..38a4ca1bffdfa7e13ef6b2a15f4f6f4725dbd8d8 100644 (file)
--- a/src/Symantic/Parser/Haskell/View.hs
+++ b/src/Symantic/Parser/Haskell/View.hs
@@ -17,7 +17,8 @@ import Symantic.Parser.Grammar.Fixity
 import qualified Symantic.Parser.Haskell.Optimize as H
 
 -- * Type 'ViewTerm'
-newtype ViewTerm a = ViewTerm { unViewTerm :: ViewTermInh -> ShowS }
+newtype ViewTerm a = ViewTerm { unViewTerm ::
+  ViewTermInh -> ShowS }
 
 instance IsString (ViewTerm a) where
   fromString s = ViewTerm $ \_inh -> showString s