Commit b711450c authored by Petr Pudlak's avatar Petr Pudlak

Rename PyValueInstances.hs to PyValue.hs

Now the file contains the type class declaration as well.
Signed-off-by: default avatarPetr Pudlak <pudlak@google.com>
Reviewed-by: default avatarJose A. Lopes <jabolopes@google.com>
parent 2886c58d
......@@ -701,7 +701,7 @@ HS_LIB_SRCS = \
src/Ganeti/OpParams.hs \
src/Ganeti/Path.hs \
src/Ganeti/Parsers.hs \
src/Ganeti/PyValueInstances.hs \
src/Ganeti/PyValue.hs \
src/Ganeti/Query/Cluster.hs \
src/Ganeti/Query/Common.hs \
src/Ganeti/Query/Export.hs \
......
......@@ -32,8 +32,7 @@ import Data.Char (ord)
import Data.Set (Set)
import qualified Data.Set as Set (difference, fromList, toList, union)
import Ganeti.THH (PyValue(..))
import Ganeti.PyValueInstances ()
import Ganeti.PyValue
-- | 'PythonChar' wraps a Python 'char'
newtype PythonChar = PythonChar { unPythonChar :: Char }
......
......@@ -30,7 +30,7 @@ module Ganeti.Hs2Py.ListConstants where
import Ganeti.Constants
import Ganeti.Hs2Py.GenConstants
import Ganeti.PyValueInstances ()
import Ganeti.PyValue ()
$(genPyConstants "pyConstants"
(
......
......@@ -53,7 +53,7 @@ import Ganeti.THH
import qualified Ganeti.Hs2Py.OpDoc as OpDoc
import Ganeti.OpParams
import Ganeti.PyValueInstances ()
import Ganeti.PyValue ()
import Ganeti.Types
import Ganeti.Query.Language (queryTypeOpToRaw)
......
{-| PyValueInstances contains instances for the 'PyValue' typeclass.
{-| PyValue contains instances for the 'PyValue' typeclass.
The typeclass 'PyValue' converts Haskell values to Python values.
This module contains instances of this typeclass for several generic
......@@ -30,7 +30,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE FlexibleInstances, OverlappingInstances,
TypeSynonymInstances, IncoherentInstances #-}
module Ganeti.PyValueInstances where
module Ganeti.PyValue where
import Data.List (intercalate)
import Data.Map (Map)
......
......@@ -77,7 +77,7 @@ import qualified Text.JSON as JSON
import Text.JSON.Pretty (pp_value)
import Ganeti.JSON
import Ganeti.PyValueInstances
import Ganeti.PyValue
import Data.Maybe
import Data.Functor ((<$>))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment