@@ -165,8 +165,6 @@ checkLine line s
165165 mSrcLoc = mkSrcLoc (GHC.mkFastString "LINE")
166166 ss = mkSrcSpan (mSrcLoc line 1) (mSrcLoc line (size+1))
167167 in (res, Just $ L ss pragma)
168− -- Deal with shebang/cpp directives too
169− -- x | "#" `isPrefixOf` s = ("",Just $ Comment ((line, 1), (line, length s)) s)
170168 | "#!" `isPrefixOf` s =
171169 let mSrcLoc = mkSrcLoc (GHC.mkFastString "SHEBANG")
172170 ss = mkSrcSpan (mSrcLoc line 1) (mSrcLoc line (length s))