Added command ok for all the rest successful commands

VyacheslavHashov · VyacheslavHashov · commit 034713e97781 · 2017-01-22T00:44:02.000+03:00
diff --git a/src/Database/PostgreSQL/Protocol/Decoders.hs b/src/Database/PostgreSQL/Protocol/Decoders.hs
@@ -115,7 +115,7 @@ decodeCommandResult s =
         "MOVE"   -> MoveCompleted <$> readRows rest
         "FETCH"  -> FetchCompleted <$> readRows rest
         "COPY"   -> CopyCompleted <$> readRows rest
-        _        -> fail "Unknown command in command result"
+        _        -> pure CommandOk
   where
     space = 32
     readRows = maybe (fail "Invalid rows format in command result")
diff --git a/src/Database/PostgreSQL/Protocol/Types.hs b/src/Database/PostgreSQL/Protocol/Types.hs
@@ -47,6 +47,8 @@ data CommandResult
     | MoveCompleted   RowsCount
     | FetchCompleted  RowsCount
     | CopyCompleted   RowsCount
+    -- all other commands
+    | CommandOk
     deriving (Show)
 
 -- | Parameters of the current connection.
