Fix parsing of "name:123" strings

Author: Bart Schuurmans

tensorflow/src/TensorFlow/Internal/FFI.hs

@@ -187,8 +187,8 @@ run session graph inputNamesData outputNames targetNames = do
     parseName :: B.ByteString -> (B.ByteString, CInt)
     parseName name =
         case break (== ':') (C.unpack name) of
-          (name, ':':idxStr) | [(idx, "" :: String)] <- read idxStr
-            -> (C.pack name, fromInteger idx)
+          (name, ':':idxStr) | idx <- read idxStr
+            -> (C.pack name, idx)
           _ -> (name, 0)
 
     nullTensor = Raw.Tensor nullPtr

tensorflow/src/TensorFlow/Output.hs

@@ -121,7 +121,7 @@ opControlInputs = lens _opControlInputs (\o x -> o {_opControlInputs = x})
 -- code into a Build function
 instance IsString Output where
     fromString s = case break (==':') s of
-        (n, ':':ixStr) | [(ix, "" :: String)] <- read ixStr
-                         -> Output (fromInteger ix) $ assigned n
+        (n, ':':ixStr) | ix <- read ixStr
+          -> Output (fromInteger ix) $ assigned n
         _ -> Output 0 $ assigned s
      where assigned = NodeName . Text.pack