Commit 059ccb93 authored by Dag Brattli's avatar Dag Brattli

Remove inlining for now since it confuses the test coverage

parent a8b97db0
...@@ -7,10 +7,10 @@ type UserState = unit // doesn't have to be unit, of course ...@@ -7,10 +7,10 @@ type UserState = unit // doesn't have to be unit, of course
type Parser<'t> = Parser<'t, UserState> type Parser<'t> = Parser<'t, UserState>
module Core = module Core =
let inline isBit (c: char) = let isBit (c: char) =
uint32 c - uint32 '0' <= uint32 '1' - uint32 '0' uint32 c - uint32 '0' <= uint32 '1' - uint32 '0'
let inline parseBits count : Parser<_> = let parseBits count : Parser<_> =
manyMinMaxSatisfy count count isBit manyMinMaxSatisfy count count isBit
let parseBool = let parseBool =
...@@ -61,12 +61,12 @@ module Core = ...@@ -61,12 +61,12 @@ module Core =
ps |>> fun x -> x.Trim([| ' '; '@'|]) ps |>> fun x -> x.Trim([| ' '; '@'|])
let inline apply pf pa = let apply pf pa =
// pf >>= fun f -> pa >>= fun a -> preturn (f a) // pf >>= fun f -> pa >>= fun a -> preturn (f a)
pf >>= fun f -> pa |>> f pf >>= fun f -> pa |>> f
let inline (<*>) f a = apply f a let (<*>) f a = apply f a
let inline ( *>) pf pa = pa >>. pf let ( *>) pf pa = pa >>. pf
let inline (<* ) pf pa = pf .>> pa let (<* ) pf pa = pf .>> pa
\ No newline at end of file \ No newline at end of file
...@@ -46,7 +46,7 @@ module Type123 = ...@@ -46,7 +46,7 @@ module Type123 =
} }
let parseRateOfTurn = let parseRateOfTurn =
let inline squareSigned x = x * x * float(Math.Sign(float x)) let squareSigned x = x * x * float(Math.Sign(float x))
Core.parseSByte Core.parseSByte
|>> fun x -> squareSigned((float x) / 4.733) |>> fun x -> squareSigned((float x) / 4.733)
......
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