Tidied up a few unused functions and module imports
This commit is contained in:
parent
0dc458ff03
commit
33b04e7646
|
@ -189,16 +189,6 @@ dyadicIsBoolean A.MoreEq = True
|
||||||
dyadicIsBoolean A.After = True
|
dyadicIsBoolean A.After = True
|
||||||
dyadicIsBoolean _ = False
|
dyadicIsBoolean _ = False
|
||||||
|
|
||||||
-- | In occam, things that are arrays\/lists (literals, constructors, etc) are arrays. However, in Rain they are lists.
|
|
||||||
-- This function chooses between the two types accordingly. The dimensions are only relevant in occam.
|
|
||||||
typeOfArrayList :: CSMR m => [A.Dimension] -> A.Type -> m A.Type
|
|
||||||
typeOfArrayList dims innerType
|
|
||||||
= do st <- getCompState
|
|
||||||
case csFrontend st of
|
|
||||||
FrontendOccam -> return $ A.Array dims innerType
|
|
||||||
FrontendRain -> return $ A.List innerType
|
|
||||||
|
|
||||||
|
|
||||||
-- | Gets the 'A.Type' of an 'A.Expression'. This function assumes that the expression has already been type-checked.
|
-- | Gets the 'A.Type' of an 'A.Expression'. This function assumes that the expression has already been type-checked.
|
||||||
typeOfExpression :: (CSMR m, Die m) => A.Expression -> m A.Type
|
typeOfExpression :: (CSMR m, Die m) => A.Expression -> m A.Type
|
||||||
typeOfExpression e
|
typeOfExpression e
|
||||||
|
|
|
@ -34,8 +34,6 @@ import qualified LexRain as L
|
||||||
import Metadata
|
import Metadata
|
||||||
import ParseUtils
|
import ParseUtils
|
||||||
import Pass
|
import Pass
|
||||||
import Types
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
type RainState = CompState
|
type RainState = CompState
|
||||||
|
|
|
@ -27,7 +27,6 @@ import Data.Maybe
|
||||||
import qualified AST as A
|
import qualified AST as A
|
||||||
import CompState
|
import CompState
|
||||||
import Errors
|
import Errors
|
||||||
import Metadata
|
|
||||||
import Pass
|
import Pass
|
||||||
import qualified Properties as Prop
|
import qualified Properties as Prop
|
||||||
import RainTypes
|
import RainTypes
|
||||||
|
|
Loading…
Reference in New Issue
Block a user