From f1b406fc16cc828ecf260c022456c83ded703541 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 31 Aug 2017 22:43:11 -0400 Subject: [PATCH] Rename tableSingleton to singleton. --- src/Data/Syntax/Assignment/Table/Array.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Data/Syntax/Assignment/Table/Array.hs b/src/Data/Syntax/Assignment/Table/Array.hs index 84f70be30..a482858de 100644 --- a/src/Data/Syntax/Assignment/Table/Array.hs +++ b/src/Data/Syntax/Assignment/Table/Array.hs @@ -1,6 +1,6 @@ module Data.Syntax.Assignment.Table.Array ( Table(tableAddresses) -, tableSingleton +, singleton ) where import Data.Array @@ -10,8 +10,8 @@ import Data.Functor.Classes data Table i a = Table { tableAddresses :: [i], tableBranches :: Array i (Maybe a) } deriving (Foldable, Functor, Traversable) -tableSingleton :: Ix i => i -> a -> Table i a -tableSingleton i a = Table [i] (listArray (i, i) [Just a]) +singleton :: Ix i => i -> a -> Table i a +singleton i a = Table [i] (listArray (i, i) [Just a]) instance (Ix i, Show i) => Show1 (Table i) where