Commit 1f3a9da2 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-07-11 15:58:26 by simonmar]

remove unused imports; misc cleanup
parent 76050f00
......@@ -47,7 +47,6 @@ import Type ( Type, ClassContext, mkDictTy, mkDictTys, mkTyConApp, mkTyVarTys,
splitFunTys, splitForAllTys, unUsgTy,
mkUsgTy, UsageAnn(..)
)
import PprType ( pprParendType )
import Module ( Module )
import CoreUtils ( exprType, mkInlineMe )
import CoreUnfold ( mkTopUnfolding, mkCompulsoryUnfolding, mkOtherCon )
......@@ -89,12 +88,10 @@ import FieldLabel ( FieldLabel, FieldLabelTag, mkFieldLabel, fieldLabelName,
)
import CoreSyn
import Maybes
import BasicTypes ( Arity )
import Unique
import Maybe ( isJust )
import Outputable
import Util ( assoc )
import List ( nub )
\end{code}
......
......@@ -463,10 +463,11 @@ The basic encoding scheme is this.
alreadyEncoded :: String -> Bool
alreadyEncoded s = all ok s
where
ok ' ' = True -- This is a bit of a lie; if we really wanted spaces
-- in names we'd have to encode them. But we do put
-- spaces in ccall "occurrences", and we don't want to
-- reject them here
ok ' ' = True
-- This is a bit of a lie; if we really wanted spaces
-- in names we'd have to encode them. But we do put
-- spaces in ccall "occurrences", and we don't want to
-- reject them here
ok ch = ISALPHANUM ch
alreadyEncodedFS :: FAST_STRING -> Bool
......
Markdown is supported
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