Add type annotation

Jamil Maqdis Anton · Jamil Maqdis Anton · commit 7fe77579789a · 2020-10-14T21:35:19.000+02:00
diff --git a/src/Read.fs b/src/Read.fs
@@ -9,8 +9,13 @@ module Read =
                           (msgCount: MessageCount)
                           : Async<Result<ReadAllPage, string>> =
         ReadRaw.readFromAllStream store readingDirection startPositionInclusive msgCount
-        |> ExceptionsHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.simpleExceptionHandler
 
-    let readFromStream store readingDirection streamName readVersion msgCount =
+    let readFromStream (store: SqlStreamStore.IStreamStore)
+                       (readingDirection: ReadingDirection)
+                       (streamName: StreamName)
+                       (readVersion: ReadVersion)
+                       (msgCount: MessageCount)
+                       : Async<Result<ReadStreamPage, string>> =
         ReadRaw.readFromStream store readingDirection streamName readVersion msgCount
-        |> ExceptionsHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.simpleExceptionHandler
