utdemir/nix-tree
1
1
Fork 0
mirror of https://github.com/utdemir/nix-tree.git synced 2024-10-05 18:58:59 +03:00
Code Issues Projects Releases Wiki Activity

Fix a nonexhaustive pattern match

Browse Source
This commit is contained in:
Utku Demir 2023-01-14 17:43:09 +13:00
parent b18f430668
commit 4eaca0c0bd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/NixTree/StorePath.hs
View File

@ -110,7 +110,9 @@ getNixVersion = do
-- split by ".", take the first two, and convert them to numbers
(major, minor) <- do
let maT : miT : _ = T.splitOn "." ver
(maT, miT) <- case T.splitOn "." ver of
p1 : p2 : _ -> Just (p1, p2)
_ -> Nothing
ma <- readMaybe @Natural (toString maT)
mi <- readMaybe @Natural (toString miT)
return (ma, mi)