github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

strictness annotations. will this do anything? only time will tell

Browse Source
This commit is contained in:
Patrick Thomson 2018-03-13 19:03:00 -04:00
parent f9e8edddff
commit ca96b02869
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Abstract/Value.hs
View File

@ -49,9 +49,9 @@ prjPair = bitraverse prjValue prjValue
-- that, say, a @Number Scientific@ contains a 'Scientific' and not an integer
-- in disguise.
data Number a where
Whole :: Prelude.Integer -> Number Prelude.Integer
Ratio :: Prelude.Rational -> Number Prelude.Rational
Decim :: Scientific -> Number Scientific
Whole :: !Prelude.Integer -> Number Prelude.Integer
Ratio :: !Prelude.Rational -> Number Prelude.Rational
Decim :: !Scientific -> Number Scientific
deriving instance Eq a => Eq (Number a)