eeva
/
tensorflow-haskell
mirror of https://github.com/tensorflow/haskell.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Added PureResult instances for tuples up to size twelve so that tensorflow-core-ops would compile.

This commit is contained in:
skynet1 2020-08-26 12:24:35 -05:00
parent aa28354614
commit 7210ff8be1
4 changed files with 104 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tensorflow-core-ops/Setup.hs
View File

@ -114,6 +114,7 @@ blackList =
, "ParallelInterleaveDatasetV2"
, "ParallelMapDataset"
, "ParseSequenceExample"
, "ParseSequenceExampleV2"
, "PartitionedCall"
, "ReduceDataset"
, "RemoteCall"

1
tensorflow-core-ops/third_party Symbolic link
View File

@ -0,0 +1 @@
../third_party/tensorflow/

2
tensorflow-opgen/src/TensorFlow/OpGen/ParsedOp.hs
View File

@ -98,6 +98,7 @@ data Attr a = Attr
-- | The type of an attribute.
data AttrType = AttrSingle AttrBaseType
| AttrList AttrBaseType
| AttrFunc
deriving Eq
data AttrBaseType = AttrBytes | AttrInt64 | AttrFloat | AttrBool
@ -341,5 +342,6 @@ parseAttrType o = \case
"list(type)" -> AttrList AttrType
"list(shape)" -> AttrList AttrShape
"list(tensor)" -> AttrList AttrTensor
"func" -> AttrFunc
t -> error $ "parseAttrType: unrecognized type " ++ show t
++ " for op " ++ show (o ^. name)

100
tensorflow/src/TensorFlow/BuildOp.hs
View File

@ -257,6 +257,106 @@ instance ( PureResult a1
<*> pureResult
<*> pureResult
instance ( PureResult a1
, PureResult a2
, PureResult a3
, PureResult a4
, PureResult a5
, PureResult a6
, PureResult a7
, PureResult a8
, PureResult a9
)
=> PureResult (a1, a2, a3, a4, a5, a6, a7, a8, a9) where
pureResult = (,,,,,,,,)
<$> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
instance ( PureResult a1
, PureResult a2
, PureResult a3
, PureResult a4
, PureResult a5
, PureResult a6
, PureResult a7
, PureResult a8
, PureResult a9
, PureResult a10
)
=> PureResult (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) where
pureResult = (,,,,,,,,,)
<$> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
instance ( PureResult a1
, PureResult a2
, PureResult a3
, PureResult a4
, PureResult a5
, PureResult a6
, PureResult a7
, PureResult a8
, PureResult a9
, PureResult a10
, PureResult a11
)
=> PureResult (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11) where
pureResult = (,,,,,,,,,,)
<$> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
instance ( PureResult a1
, PureResult a2
, PureResult a3
, PureResult a4
, PureResult a5
, PureResult a6
, PureResult a7
, PureResult a8
, PureResult a9
, PureResult a10
, PureResult a11
, PureResult a12
)
=> PureResult (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) where
pureResult = (,,,,,,,,,,,)
<$> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
<*> pureResult
instance PureResult a => PureResult [a] where
pureResult = do
ResultState i ns <- get