From f279f1be8f554dcb1744be1e722e14e36a0581ff Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 24 Jul 2010 23:26:49 +0000
Subject: Follow flattenLanguageFlags -> flattenExtensionFlags rename

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index aaed1f48..51e98e1e 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -386,7 +386,7 @@ getPrologue flags =
     [] -> return Nothing
     [filename] -> do
       str <- readFile filename
-      case parseParas (tokenise (flattenLanguageFlags defaultDynFlags) str (0,0) {- TODO: real position -}) of
+      case parseParas (tokenise (flattenExtensionFlags defaultDynFlags) str (0,0) {- TODO: real position -}) of
         Nothing -> throwE $ "failed to parse haddock prologue from file: " ++ filename
         Just doc -> return (Just doc)
     _otherwise -> throwE "multiple -p/--prologue options"
-- 
cgit v1.2.3