From 0e9a399f7bc6e741b909bbe2ff3d7ed022b2fdd6 Mon Sep 17 00:00:00 2001 From: Tim Vieira Date: Sat, 8 Dec 2012 23:29:05 -0500 Subject: [PATCH] tweak imports --- src/Dyna/Analysis/ANF.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Dyna/Analysis/ANF.hs b/src/Dyna/Analysis/ANF.hs index 0a58a4b..d927c69 100644 --- a/src/Dyna/Analysis/ANF.hs +++ b/src/Dyna/Analysis/ANF.hs @@ -69,7 +69,7 @@ {-# LANGUAGE OverloadedStrings #-} module Dyna.Analysis.ANF ( - ANFState(..), NT(..), FDT, EVF, FDR, + ANFState(..), NT(..), FDT, EVF, FDR(..), normTerm, normRule, runNormalize, printANF ) where @@ -291,7 +291,7 @@ normTerm_ c ss (P.TFunctor f as) = do selfdispos <- asks $ flip ($) (f,length as) . ad_self_dispos let dispos = mergeDispositions selfdispos c - + fmap NTVar $ case dispos of ADEval -> newEval "_$f" . Right -- 2.50.1