Commit 8407d75d authored by Ian Lynagh's avatar Ian Lynagh
Browse files

(F)SLIT -> (f)sLit in HscMain

parent 032e31a4
......@@ -32,8 +32,6 @@ module HscMain
, makeSimpleDetails
) where
#include "HsVersions.h"
#ifdef GHCI
import CodeOutput ( outputForeignStubs )
import ByteCodeGen ( byteCodeGen, coreExprToBCOs )
......@@ -929,7 +927,7 @@ hscParseThing parser dflags str
buf <- stringToStringBuffer str
let loc = mkSrcLoc FSLIT("<interactive>") 1 0
let loc = mkSrcLoc (fsLit "<interactive>") 1 0
case unP parser (mkPState buf loc dflags) of {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment