github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 13:51:44 +03:00
Code Issues Projects Releases Wiki Activity

List the exports explicitly.

Browse Source
This commit is contained in:
Rob Rix 2017-08-31 23:22:25 -04:00
parent 6929b6955d
commit 6da1cf9a0e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Data/Syntax/Assignment/Table/IntMap.hs
View File

@ -1,8 +1,15 @@
module Data.Syntax.Assignment.Table.IntMap where module Data.Syntax.Assignment.Table.IntMap
( Table(tableAddresses)
, singleton
, fromListWith
, toList
, lookup
) where
import Data.Bifunctor (first) import Data.Bifunctor (first)
import Data.Functor.Classes import Data.Functor.Classes
import qualified Data.IntMap as IntMap import qualified Data.IntMap as IntMap
import Prelude hiding (lookup)
data Table i a = Table { tableAddresses :: [i], tableBranches :: IntMap.IntMap a } data Table i a = Table { tableAddresses :: [i], tableBranches :: IntMap.IntMap a }
deriving (Eq, Foldable, Functor, Show, Traversable) deriving (Eq, Foldable, Functor, Show, Traversable)