From f4c6df9834e5942a9143b15497a00576182a22f6 Mon Sep 17 00:00:00 2001 From: brase Date: Tue, 14 Apr 2020 22:11:06 +0200 Subject: [PATCH] Fixes id parsing --- src/Server/Smapi.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Server/Smapi.fs b/src/Server/Smapi.fs index 5b67ed1..615b0c9 100644 --- a/src/Server/Smapi.fs +++ b/src/Server/Smapi.fs @@ -63,7 +63,7 @@ module Smapi = None let (|MediaMetadataId|_|) str = - let idPattern = "([a-fA-F0-9]{8}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{12})___(\\d+)" + let idPattern = "([a-fA-F0-9]{8}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{12})___([a-fA-F0-9]{8}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{12})" let m = Regex.Match(str, idPattern) if(m.Success) then Some ((System.Guid.Parse(m.Groups.[1].Value)), System.Guid.Parse(m.Groups.[2].Value)) else None