github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 20:31:55 +03:00
Code Issues Projects Releases Wiki Activity

:note: Abstract/Number.hs.

Browse Source
This commit is contained in:
Patrick Thomson 2020-01-27 10:53:13 -05:00
parent ae98033e1d
commit 87be2f7e8b
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/Abstract/Number.hs
View File

@ -1,4 +1,8 @@
{-# LANGUAGE GADTs, StandaloneDeriving, RankNTypes, TypeApplications #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TypeApplications #-}
module Data.Abstract.Number
( Number (..)
@ -9,10 +13,10 @@ module Data.Abstract.Number
, liftedFloorDiv
) where
import Data.Function (on)
import Data.Scientific
import qualified Prelude
import Prelude hiding (Integer)
import Prologue
import qualified Prelude
-- | A generalized number type that unifies all interpretable numeric types.
-- This is a GADT, so you can specialize the 'a' parameter and be confident