From: Tim Vieira <tim.f.vieira@gmail.com>
Date: Sun, 9 Dec 2012 04:29:05 +0000 (-0500)
Subject: tweak imports
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=0e9a399f7bc6e741b909bbe2ff3d7ed022b2fdd6;p=dyna2

tweak imports
---

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