Added the new tock include directory to the standard search path

This commit is contained in:
Neil Brown 2009-04-04 12:29:53 +00:00
parent 0466a50dfa
commit cfcf50297f

View File

@ -34,6 +34,7 @@ import qualified AST as A
import Errors (Die, dieP, ErrorReport, Warn, WarningType(..), warnP, WarningReport) import Errors (Die, dieP, ErrorReport, Warn, WarningType(..), warnP, WarningReport)
import Metadata import Metadata
import OrdAST () import OrdAST ()
import Paths
import TypeSizes import TypeSizes
import UnifyType import UnifyType
import Utils import Utils
@ -176,7 +177,7 @@ emptyState = CompState {
csRunIndent = False, csRunIndent = False,
csClassicOccamMobility = False, csClassicOccamMobility = False,
csUnknownStackSize = 512, csUnknownStackSize = 512,
csSearchPath = ["."], csSearchPath = [".", tockIncludeDir],
csCurrentFile = "none", csCurrentFile = "none",
csUsedFiles = Set.empty, csUsedFiles = Set.empty,