graninas/Hydra
1
1
Fork 0
mirror of https://github.com/graninas/Hydra.git synced 2024-11-28 04:35:18 +03:00
Code Issues Projects Releases Wiki Activity

Small fix

Browse Source
This commit is contained in:
Alexander Granin 2020-02-09 21:53:17 +07:00
parent 232c1f1f4e
commit 6a5cd5672f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/astro/Main.hs
View File

@ -41,7 +41,7 @@ getChannel ch = error $ show $ "Channel not supported: " <> ch <> " Supporte
getApproach :: String -> Approach getApproach :: String -> Approach
getApproach apprStr = case readMaybe apprStr of getApproach apprStr = case readMaybe apprStr of
Just appr -> appr Just appr -> appr
Nothing -> error $ show $ "Approach not supported: " <> apprStr <> " Supported: SH RT FM GADT" Nothing -> error $ show $ "Approach not supported: " <> apprStr <> " Supported: SH RT FM FT GADT"
main :: IO () main :: IO ()
main = do main = do