Fixed a monomorphism restriction warning in the Unnest module

2008-02-05 22:53:37 +00:00 · 2008-02-05 22:53:37 +00:00 · 3cb4e80749
commit 3cb4e80749
parent caa0ddd2f9
1 changed files with 1 additions and 0 deletions
--- a/transformations/Unnest.hs
+++ b/transformations/Unnest.hs
@ -35,6 +35,7 @@ import Types
 unnest :: Pass
 unnest = runPasses passes
  where
+    passes :: [(String, Pass)]
    passes =
      [ ("Convert free names to arguments", removeFreeNames)
      , ("Pull nested definitions to top level", removeNesting)