Skip to content

Commit

Permalink
Delete print-debugging
Browse files Browse the repository at this point in the history
  • Loading branch information
omaus committed Jul 16, 2023
1 parent 9c3fe89 commit 32ecc07
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions src/ArcGraphModel.IO/ISA/Tokenization.fs
Original file line number Diff line number Diff line change
Expand Up @@ -7,15 +7,12 @@ open KeyParser
module Tokenization =

let convertTokens (line : FsCell seq) =
printfn "line: %A" line
match line |> Seq.toList with
| [] -> failwith "Cannot convert nothin"
| key :: [] ->
printfn "case key :: []"
let f = parseKey [] key.Value
[f (ParamValue.Value "")]
| key :: cells ->
printfn "case key :: cells"
let f = parseKey [] key.Value
cells
|> List.map (fun c ->
Expand Down

0 comments on commit 32ecc07

Please sign in to comment.