Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
41f08e8e
Commit
41f08e8e
authored
Jul 31, 2008
by
batterseapower
Browse files
Handle introduction of MkCore in MatchLit
parent
cec9b62f
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/deSugar/MatchLit.lhs
View file @
41f08e8e
...
...
@@ -22,6 +22,7 @@ import HsSyn
import Id
import CoreSyn
import MkCore
import TyCon
import DataCon
import TcHsSyn ( shortCutLit )
...
...
@@ -61,17 +62,17 @@ See also below where we look for @DictApps@ for \tr{plusInt}, etc.
\begin{code}
dsLit :: HsLit -> DsM CoreExpr
dsLit (HsStringPrim s) = return (
mk
Lit (MachStr s))
dsLit (HsCharPrim c) = return (
mk
Lit (MachChar c))
dsLit (HsIntPrim i) = return (
mk
Lit (MachInt i))
dsLit (HsWordPrim w) = return (
mk
Lit (MachWord w))
dsLit (HsFloatPrim f) = return (
mk
Lit (MachFloat f))
dsLit (HsDoublePrim d) = return (
mk
Lit (MachDouble d))
dsLit (HsStringPrim s) = return (Lit (MachStr s))
dsLit (HsCharPrim c) = return (Lit (MachChar c))
dsLit (HsIntPrim i) = return (Lit (MachInt i))
dsLit (HsWordPrim w) = return (Lit (MachWord w))
dsLit (HsFloatPrim f) = return (Lit (MachFloat f))
dsLit (HsDoublePrim d) = return (Lit (MachDouble d))
dsLit (HsChar c) = return (mkCharExpr c)
dsLit (HsString str) = mkStringExprFS str
dsLit (HsInteger i _) = mkIntegerExpr i
dsLit (HsInt i) = return (mkIntExpr i)
dsLit (HsInt i) = return (mkIntExpr
(fromIntegral
i)
)
dsLit (HsRat r ty) = do
num <- mkIntegerExpr (numerator r)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment