# HG changeset patch
# User koda
# Date 1447683680 -3600
# Node ID c3a535886806c3f028dc6d988610367557234aa0
# Parent  a7efecf4f49fee8aac042f4eac53cc0a925a9793
pas2c: Tentatively fix the build

diff -r a7efecf4f49f -r c3a535886806 tools/pas2c/Pas2C.hs
--- a/tools/pas2c/Pas2C.hs	Mon Nov 16 15:20:49 2015 +0100
+++ b/tools/pas2c/Pas2C.hs	Mon Nov 16 15:21:20 2015 +0100
@@ -1,4 +1,5 @@
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE FlexibleContexts #-}
 module Pas2C where
 
 import Text.PrettyPrint.HughesPJ
diff -r a7efecf4f49f -r c3a535886806 tools/pas2c/PascalParser.hs
--- a/tools/pas2c/PascalParser.hs	Mon Nov 16 15:20:49 2015 +0100
+++ b/tools/pas2c/PascalParser.hs	Mon Nov 16 15:21:20 2015 +0100
@@ -239,10 +239,10 @@
     ] <?> "range declaration"
     where
     rangeft = do
-    e1 <- initExpression
-    string' ".."
-    e2 <- initExpression
-    return $ RangeFromTo e1 e2
+        e1 <- initExpression
+        string' ".."
+        e2 <- initExpression
+        return $ RangeFromTo e1 e2
 
 typeVarDeclaration :: Bool -> Parsec String u [TypeVarDeclaration]
 typeVarDeclaration isImpl = (liftM concat . many . choice) [